Y * \ 1 jjU - <-'l Uftl-v CjUIaIaI 



2016 jA - SjAlill -l 


frig'll 

J^i JMI 


: ^ j jplpl (X ) Affl* ^ ^ i* 1 * 1 !! djLiJI fplpT (V ) dplLc — 1 

Function 4^1 ^ j* ^ ( Single) ^ (Area) 4*^0^ ^jaJI -1 

( ). Area (ByVal radius As Single ) As Integer 

( ) . Js+ji ,j-<» JsS (J& jl Qjm 4jU£I| (jLoj ^±kl<ou -2 

( ) . Jl^l 04 -3 

( ) . i flju/Vill (j jlutA ^jic- uj)jJlIaI) (jt ,jiu <ji ,j£-aj -4 


; jJLill .\ iH i*i frlili .Ti^il — *j 

Dim X As Single 
X = Me.TextBoxl. Text 

If X > = 50 Then Labell. Text = "£^” Else Labell. Text = "v-b" 

X = 75 ^ ft -2 X = 20 ^ » Jt -1 

i^uil jmi 

; ^»ii a iia,in 

.<\A-“ (for m=3 to 15 step3) *A' -1 

(15 <_s-^ 3 L>® AjJIjIaJI ^UijVI — — 3 (Jj£j 

.Y O' LAk True (Do while y>50 ) -2 

( 50 - 50 t> j 4 ' - 50 c> J 5 ') 

. J VBCRLF S -3 

^ ~ <lVn — Jj.1^. j\~* . .■ pLOj) ^ 

.Text Box jjjiLa -4 

( U* V - Items - Add () - Focus () ) 

.aIa^ ^.ikluAj cli'jjxld' -5 

( Constant - Dim - Step ) 

-dldl JI^JI 

Do While dlo^,ol t;,; tiiLi jlLilli^ll dib^xl-l 

For i = 1 To N Step2 
ListBoxl. Items . Add(i) 

-inm (jijj mj tgaluUI ljJLlJI i lir-ill - jjjijn^ill (jj )5jl5 














Next 

:Code 

Sum ShowOddOrEven (ByVal Start As Integer) 

Dimi As Integer 

Label 1. Text = " M 

For i = Start To 10 Step2 

Labell. Text = Labell. Text & " " & i 

Next 

End Sub 

.f!j*V! Jatojj -2 . 9- I j^i\ ^uil -1 

.iaiUujil -3 


2016 - SjjaJI Aiaal^-2 

J^i JMI 

i ^ ) ^Ipl ( X ) Affl* 3 a*. ijliiJI jolpl ( V ) dcHc fu* 

( ) . wH^ ujjaJ Jf* Ai olu £jj J* -1 

( ). j 4lo. l^oliiluil Jjaj V Sub lja.VI -2 

jl ifj <ujjja£ll JjL-j JbiLulj JL-jl Exchusion fUiLuVlj AuaL -3 

( ) . 

( ). False jl True ikL Double <> -4 

( ) . 4 j j\ 1 a!\ Cl£LL*-a (_^A & -5 

( ). True &*** Do While .. Loop ^ -6 

i^uil jmi 

; 4„HH ^ 4jjla,iil La,1 

. jIouj fLuu) ^a ^Viun.Sjjy^ A-aISJI -1 

( VbCrlf - Me - Rem ) 

. Lkk jl ljIL ai AajU £)j£j 4^aja3l 4L>® £ ^ .-2 

( Cj|jailaJl _ ^laj<u4) jjjiMl - 4 jjLu*aJ| C^Lalx^l ) 

. IgJ £Laj V.-3 

( Jlj^Sl - £ulj^l - (Jj)jaild! ) 
.(j^uakoll <La^P 1 a £ Lj ^jaSjla ^j-a 4_Lo. -4 

'(<>-'< - ‘ = ) 

-inm |yjj ml (galuUI ljJLlJI i lir-ill - jjjijn^ill (jj )5jl5 
















-JUI JI^JI 

; A *’ i U\ ^**(>^1)^41 — 1 

. ^iaxj ^jLua JaIxa -1 

. A^ului jjC- Sjj-uaj Jj£Jl AjU£ He- ^liaki -2 

; d -LiHI JpaJI jdlaft IrtTiVi jilall iiol^ill /yyn — u 

. \liuiA jlj£UI Ci \ja jjc- 4ij*^» ^iaJLuij Do While „ Loop Ajjl4iiaJI -1 

. End If Then Else ^IAi^-2 

gdljJI Jl$*dl 

Const X As Single = 22/7 ^1 Jjilt J -i 

.-2 . £u\$l\ fjot\ -l 

20 JS 2 <> ^jjil ^Vl ijxi JU1! j jSJ! JaS! 

For i = . To. Step. 


2016 JjLa - AjjAllutVl A&Ua -3 


j^l JMI 

; <)aj 4^o djla,ll1 La,1 

Function Odd (byval Num as single ) As Integer Odd CP ^ '^! -1 

. Cjj& Odd 4il.iil 4*^1jil 

(AM uLj*j - Integer - Short - Single ) 

. Cp Dim x As Byte = 400 ^ -2 

( Syntax - Logic - RunTime ) 

.f Ij^Vl ^JiiLLutj 4 ajAj Jjju Vj cJLiualSl J^l J ja Cp jj£ 1 Jj£ -3 

( Constants - Sub - Function - Variable ) 

.jA ^uUIl ^jj!L ( 4 * 2 A 2 ) 4 jjl * <i^' AiLoxlt Liu jxj _4 

( 8 - 32 - 16 - 64 ) 

I^UII JMI 

; ^Ipl ( X ) yi* ^ djliiJI ^Ipl ( V ) dp He fLta 

( ) . Selected Index Au-aUil talk _i 

mm (jijj mj tgaluUI lJLlJI i lir-ill - jjjijn^ill (jj )5jl5 





















( ). AjjLuiaJ) uULaxit f \Char -2 

( ) ' 4jjLLaJl clL}bal*»a (jA < > JaIxaM jjjxj -3 

( ). UL* “■* Aai^Ixa jjc- ^ijxVt ,j-® JLSluiV aJLuj ij£ Parameters *-^** <j ^ -4 

( ). Select.. Case aU* ^ AilaJl <> Loop j*VI -5 

•JUI J|£*d| 

^milioll jd 4i—■—iSil 4^10 <3^ jfea 


( Do.. While - Const - String ) 

. £)JJla iajJj f LL CjIjaII jjC. JJfii JjS j|j£i] ^«ixlu4j Alax.-1 

. Aa1£.-2 

. Text A^-alxU ^Uj .-3 


gdljJl JMI 
: a-JLill */« 4ft lo 


Dim R, Sum As Integer 


Dim A As Integer = 15 

For R = 5 To 10 Step -1 


If A Mod 3 = 0 Then 

Sum = Sum + R 


Labell. Text = "True” 

Next 


Else 

Msgbox (R) 


Labell. Text = "False" 
End If 


2016 AMx^ -4 


J^i JMl 

: <^-i-i Iqq /*il1 d-jla^l >Iial 


. A-ijjjAiil iajluuj J!jIx £ja jj£I j! JaIxj Sjbc^ ^jjjSiVI.-1 

( ^UjIujVI - Aax^IaJI - - jjg JluII ) 

■JjAjJ ^JJ ^UuVI f Ic--lluil ■lie L» ^041 UX dlLulxiilj Ja\ jVI Ac-JAXA jA .-2 


. ubulxlltj jaIjVI dlft 
( Else - End - Procedure - Class ) 

.l)J^ ^Ajc- IF aIax ^ Else ^ c$aJI AiL -3 

( Then - False - Next - True ) 

. Ci \jjiiall .Aiax flilua -4 

( Dim - Constants - For - False ) 

lyjamui igaluUI ljJLlJI i lir-ill - jjjijn^ill ^ |5jl5 






















. jLuu jl Cj )ja A AC- A! jjla ^AC- AJIa SajLj ^ .-5 

((jfcu- U* 9. (J £H - For .. Next - Select.. Case - For .. Next ) 

i^uil jmi 

. 16 ( 3 + 6 ) * 2 AjjLu^I Aulaatii liiH ^uU -\ 

dAA ^IJLxLujI tiliLaj l£j (jjAJ A-<u 2 j^iliS Uj) l$J (j^aiuaij ^jlLaj V CjjI jlll -2 

. l£j AJja-ail A 

. Items Combo Box aa^I >^ail A^Lkil _3 

. 255 v ifi^J c> ^ ^ aja^ Double u^' £>* -4 

-Jldl Jl^iJI 

: 4 inn aA jilijll Code ^a^ll-f lb%ll jia: jl^j 

.: .: Dim X As Sangle : aj£JI 

; < Llj 10 ^Ipl jljll frl Li-ill 4^^ * 4 /* <l ;,; frliLi Jia :Ltib 

1- 

Dim A As Integer = 7 

Dim B As Integer = 9 

Msgbox (A & "x" & B & "=" & ""&A*B) 

( (A x B = 36 ) - (7x9 = 63) - (7x9 = A*B) ) 

2- 

Dim X , Y As Single 
X = 10 
Y = 3 * X + 2 
Labell. Text = Y 

(50 - 26 - 32 ) 

3- 

Dim R , Sum As Integer 
For R = 5 To 10 Step -1 
Sum = Sum + R 
Next 

Msgbox (R) 

( 5 - 10 - 0 ) 


^lj n -in-il igaluUI ljJLlJI i nnil - jjgijn^ll (jj (5ji5 










2016 jjU - Abi$li]| AiaaUa -5 


j^l jmi 

: 4fcfJ loo dyiaaall djla,ll1 La,1 

.^ ^ Sub f b*VI -1 

( Jjjluj LaJS - Jj»l*_a (J I i*L V - (J-aU-a (JA ja£| - -L^l j J«aljLa ) 

.JtAxli A»aaS dulS lit uiILmlb SjLJ ]1 j!jL» ,jjSj For .. Next AXa^. ^ -2 

( ^jUb - (> j£t - (> ja£t ) 

. ifi J*^t jjali False ^j^t 0 ^ 'a! If.. Then .. Else Al** ^ -3 

( End If - Else - Then ) 

. g-aUjaJ) JJUA f Ua! Lfiajfl jaxaaj ^ba £j^ jajafA^I SjSlAa SjjAA-a Aaljia <l>St-a|.-4 

( Jjauj Iaa 9-fj^i - ja»t jl - CjaljaJl - CjI jailaJl ) 

. Function 4 -NaII ji Sub f b*Vl Cf- & -5 

( (Jiuj La (JS - Sj-a ,j-a ja£t - dA^tj Sj-a ) 

; d jlilll jliljl idl jik JIaJI jflhll ^lti*i fl ll 

. AaA^ jJouj ftuul A_alAiLa»uit ^jj ^cjjLj -X 

jl 4-ajS ^ fIL dijj False ^ ji True i—ilj^ A^aU ^LaUjaJt Aj£ f jA -2 

. Aj-uali 

. A-aa3 tj\ l^j (j-a^akj Vj (j^ij^Vitt AIa^ jja ,jajV 1 uaijla^l ^ ^±kluu -3 

jmi 

:d-LijJI^I,L^JI.l^l 

. £Lalajail ^ CaaljaJl £p- ££Ip^U .^Vml -1 

.c> ^j^- 4 f-iaouL False j' True A^aiil <jaja^i -2 

.jA (4*3 A 2)/6-3 A^jluiaJl Aulaxi! ^uU -3 

. \ au »a A-a ^Ix-a jaP ft j^VI £7 jIa ,j-a ^a3 JlaAluiV Aixujj^.-4 

: Do .. While ftAliuib 8 1 <> ^ull aUpIO a«i ,ui f iHii At *Jl ,1^1-^ 

Dim X As Short 

X =. 

Do While. 

Msgbox (x) 


-in-in (jij-ii mj tgaluUI ljJLlJI i lir-ill - jjjijn^ill (jj )5jl5 

























-JUI 

; jjl i-frll^Ipl (x ) dplLfc^ j)l i-frll^Ipl ( V ) jfilifc ~ 1 

( ). Text Box »bV! cjbjla-4 Focus () Al^jll _i 

( ) . J^ 3 Sjbjil jIjL> For .. Next Ai*a> ^ Step Aj^ lie. -2 

( ) . 0jU j Uak JjLujj (j) l^J j^Jsj V AjSIsI a!\ f-Ua^VI -3 

jjjxj (ja jj£| jbUlj U ^Ui^l (> Select Case Al*a. ^Vu < n -4 

( )• cA^ 

*ja,l T oIi jJLill 1 

Dim A , B , C As Single 
B = 1 

For A = 1 To 8 Step3 

B = B + A 

Next 

If A < B Then 
C = C + 3 
Else 

C = C + 6 
End If 

A = , B = , C = ^ aajI 


2016 jiaJl AiaSLxa -6 

J^i JMI 

: <^-i-i Iqq d-ila^l ^Iia.1 

: ^ ^ If.. Then .. Else _i 

( Then - End If - If ) 

. 9-{j*aa jLou A-uaLk uliLa jIxa jAj jA ( fUaluiVI - - jjg ) -2 

: Oj% O' ajV Then j If 0£ ^ ^ -3 

(False - True - False j'True ) 
A-ajS ^aj U^ie For M = 10 To 1 Step -2 Ai** ^ -4 

. Ajl^Iil A-aiS. M 

( ^jUuJ - (jA - (> ) 

. JUjVI ^UL» >j AiLiaV p> \\uu\ CijIj (Me - Const - VbCrlf) -5 

id iyj-o uul ^gala-cLJI ljJLlJI i nnil - jjjijn^ill (jj )5jl5 











. jjjU US Ujjl U li! 4JU J ( # # . @ @ . " " ) yi* -6 

( 3 - 2 -1 ) : j* If.. Then .. Else fl-Aiu,! j- £jiUi s.tjlm.t sse .7 
V u^> TD K 4 -uiLui Ujc-Lujj ( JJLuilIt .lie- - a&U\ a \\ _ 4 jjx 11 ( ) fUa^VI -3 

. £I.JA (j-a llauk ^ Jjj ^auoj 

i^uil JMI 

: <i\i%ri ji»H djl i-frll ^plpl (x ) Agile 3 kSiMllI d)LiJI ^IpT ( V ) iallt 

( ) . Laj ijjaSJl ^j-a AIujjaII 4_ijjjj£JVl JjLojjil (jA uxj -| 

( ). ( >aj^aVi Ja^ ^ l^al-iau^l Jj*j V Function JIjaJI -2 

( ). 8 (5 ja!a!\ M-ajS 4iU ^ False Case Is > = 4 41 a* -3 

( ). O^UL*l <> 4iU ^ Select.. Case ^VLai -4 

( ) . iaAS 4-aoa.uaIt JlJC-Vl jjjaa] Double cj-a CjI jailaJl -5 

( ). Text Box SbVl ^J^a ii Focus () _6 

( ). 9 4iWj Jjil-a (jijxj Msgbox ( "3" & "x" & "3” ) >»VI -7 

•JUI J|£*d| 

; ^miLio ^ IflJ djlbll JfljJI —1 

. Combo Box SbVb A±xaJ 1 j±au .A^Lkil -1 

. £LaU ijJl liijj JLP Ja£j.A-aIS Jju (—u£j La -2 

.Text A-i«aLaJI ^ ^Vu aa M <jLJl -3 

; abjulQ uLjla^l d-LQ ^ jJLill ^$^11 dttljju —*J 

Public Class Forml 

Sub ShowOddOrEven (ByVal Start As Integer) 

Dim X As Integer 
Labell. Text = " " 

For X = Start To 10 Step2 

Labell. Text = Labell. Text & X 

Next 

End Sub 

End Class 

.^uil CiaJ fl^p ££IpVI -1 

. Chi £ji <>.^ biaJ Parameters CP C ^ -2 

.4-alS ^l±kluib X l)^VI ^ -3 

.> Labell 0l4 ShowOddOrEven ( 8 ) ^ -4 

-inm |yjj ml igaluUI ljJLlJI i ni-ill - jjjijn^ill ^ |5jl5 











<JLJI i i pg li U 

Dim A As Integer 

A = 2- 3*4 + (10/2) A 2 

Do While A < 10 

A = A + 1 

Loop 

Text Boxl. Text = A_ 

2016 - SjjikJI AjaaLa-a -7 

j^l jmi 

: <i\i%ri j i»H i-frll fplpl (x ) Agile 3 d)LiJI ^plpl ( V ) daHt ft*! 

( ). £jiiU <> jjSI aJU ^ Select.. Case -1 

( ) . (jjj JajjU «n # A-a!^ -2 

( ) # Jaaa <UaJ! Integer & Long c> -3 

p&\ ^bVu^l (£]j£j Las ^j^IpV) *UjI IgJ ^ Constants -4 

( ).«* 

«>UJI JMI 

iddLiill -jM-kJI.U^I 

. A-iuIuj jjC- Sjj-uaj 4 ijUl AjU£ JU& CjAaj . fUa^VI -1 

. A-ajAj Jjju . Ui A-ajL Jjju V Sub j^VI -2 

6 ) O 4 For N =.To. Step. ^ -3 

.( - 12 - 18 - 24 

.AjLujjj <jl AjV t oI uAjj V <jj*-a Jjjixj ^ua ij] ^c- 4 jja!I Jj£Jl AjU£ -lie- -4 

-JUI ji^tii 

: jJLall .l iH Yt AiU j i»*io «io i3 iAA ~ 1 

Dim A , C As Integer 
C = 10 

For A = 0 To 10 Step5 

Me.TextBoxl. Text = Me.TextBoxl.Text & A & VbCrlf 
Next 

If < = C Then 
C = C + 2 
End If 

Ijk A A-aJj -2 ^ C A-aJi -1 

jA TextBoxl U^SII JjAl«a ^ A^ajP U -3 

imn (jijj ami tgaluUI ljJLlJI i lir-ill - jjjijn^ill (jj )5jl5 



















1) 2-(7 + 2)*2 

2) (4 A 2 + 5)/3-2*2 

gdljJI JI^JI 

/ 1 L 1 Uk <d LiJ 1 d4^al1 LdJj a£_i 1 i»‘ip 4 1^ dp i*«j dda, —1 

X = 3 

If X < N Then 

Y = Y + M 

Z = N + X 

M = Z + N 

Else 

Y = M + Z 

Z = N + X 

M = X + Y 

End If 

Y = 2 ,Z = 5,M = 6, N = 4 

Dim R As Integer = 1 
Do While R < = 1 

R = R + 2 

Loop 

Msgbox (R) 

-UJ 

.(Jbll d^iaiil A *k AiLi R % *^‘ ! qII ^0 iJ ^ Ip —1 


cJLdl A4^11 1*4 i*i Adu Sum i i»*ipll <ip n ^ Ip —2 

Dim R As Integer 

For R = 5 To 10 Step2 
Sum = Sum + R 

Next 

Msgbox ( Sum) 


2016 Alafll^ a -g 

: ^ lAU i d tLijdl .plpl ( X ) doilt 4 da, mall d iLidl 4 I 0 I ( v ) dp Six 

( ) 

. Ad^V Ala. ,jj» ^2 ji fUjj ljIjjxIaII ^j<au<aka]| (jLaj -1 


^aluUI ljJIUI i lir-ill - jjjijn^ill )5jl5 












( ) . jl U j^a La) 4 ajU ,jjSj 4a»ajaII JjS (ja f Ja jA ^laj2ill jjj*M) -2 

( ). False UiUa jjS j)jSj ja Do While Loop ^ l-iaoui) <> -3 

Function Area ^-£^1 ^ ^a>« ja US Single ^ Area 4 *aL>^ ^u£J) -4 
( ). ( ByVal radius As Single ) As Integer 

ji^ji 

: a-Jhill ,UaII ,U^1 -I 

. ; Sjbc AIaa -1 

.Text Box ^^a ja Focus () >»V1 -2 

.: ja Procedure *b*V) -3 

.jl.j) j) S-Jja* *Ujii ^jSj £l U) Procedure ?bs>VI -4 

; ^ ^*.1| Llitlil 

: £jSll <> Din X As Single 4i*aJI ^ Ikki) _i 
( Logic Error - Syntax Error and Logic Error - Syntax Error ) 

. ^Uil jLuJb I^jjIJli <—u£j A = 2 jiAj AjjIjSj 411a -2 

(^a^ - Do While (a < >2) - - Do While (a=2) ) 

gdljJI JMI 

1) 4/2+5*2-3 

2) (4 * 3 A 2 - 30 ) / (11 Mod 3 -1) 

jiJ (iK.^p <L)q£ dlfli^o ^uutioll jipiiioll jJLill dial)Aj 

:TextBoxl U-JI jLj^o 

Dim age as Single 

Age = Me.TextBoxl. Text 

Select Case age 

Case 14 To 18 

Label2 . Text = " <jjA)>» uj|" 

Case 19 To 30 
Label2 . Text = " 

Case Else 

LabeL2 . Text = M 30 j 14 Ua L&Ji" 

End Select 

mm (jijj mj tgaluUI ljJLlJI i lir-ill - jjjijn^ill ^ |5jl5 












£jjj» ^2 CjIajAJI JI*j! AjP Label2 Sbl ^ *LiajP ^JJ La JA^ 

8 4-uill JIaj] aSp -2 22 4-ajiJI JIaj) ajp _l TextBoxl 

ForM = 3 To 1 Step-1 d-nl^ill d21ajl /in M do-J U-a 


: ( *J ) AjuiLu 1q ( 1 ) 4 | )o yiftl — A 


(^) 

(') 

A1a^ (jj» c>^V) cJjlaJl ^ ^Akluu 
<aj 2 (j^ouaij Vj 

Sub *L*V1 -1 

l^jp £)!>IpVI AjP 4^2 LgJ 

Function -2 

Lul^J 4la& ^ ^Akluu V 

Variables 3 


Constants -4 




2016 - ^Lc-Uu-VI AM*** -9 


J^i JMI 

i ^ipi (x) ^ jji «^n ^ui (V) daiu 

( ). False jl True ^ Double <> -1 

( ) . Text Box ^ 2 * ljIjaVI £y* aja*J 1 j-a ^Vu^l li^I^aa JbSluil ^jj -2 

( ) . True (J 1 ^IJ^I JJJtMl 0 jU (jj£j LaAjP Xf Alai. ^ Else Ji -3 

( ) Sjbji! <a& jl Lf jx* lAgi For .. Next y* Step f 4Jb. ^ -4 

( ). <aAa jj*j Function ^u<L aj*j V Sub *b*«VI -5 

( ) . (JJaAa1\ £aaz*a1\ JaIA (jAsul\ (jA JJ-wd A^jj V -6 

^UJIJMI 

: j|L loo 4 ^^ .\iH i‘i AiU C ^♦'ipH (ip H Ip 

1- 

Dim A , B As Integer 
Dim C As String 
A = 3 
B = 5 

If A > B Then 
C = "Ahmed” 

Else 


! 5 aluUI ljJIUI i nnil - jjjijn^ill j^n )5jl5 




















C = "Mohamed" 
End If 


2- 

Dim i As Integer 
Dim C As Integer 
C = 1 

For i = 1 To 3 
C = C * i 
Next 

3- 

Dim C As Integer 
C = 1 

Do While C < 10 
C = 2 * C 
Loop 

OJUI JMI 

: loo dyittjall djla,H1 

; jA 3+4*(5-2) AuloxJl jjjjj 

( 33 - 15 - 49 ) 

( 5 - 14 - 16 ) : jA ( 2 * ( 7 + 2 ) - 2 ) ^LS -2 

. jJl lJ&jj (jl I V.UaaJI -3 

( Logic Error - Runtime Error - Syntax Error ) 

; \>10 jtj£Ilt lj )ja 4i \j3la -lie- Ajjj j£j Ajilv -4 

( If.. End If - For.. Next - Do While ... Loop ) 

. A-4JAJ Ajju . f I-5 

(Function - Sub - Else ) 

; da>p)JI 

. Integer c> A -1 

.22/7 ojUa^lj Single <> pi -2 


. Msgbox AJlmj JjAlua IQ 1 AjAjidt AtA&Vt q^j«J AjjljlU) AHaJ) -3 


2016 J^- 4 - jh£> Aia2La-a -IQ 


j$ai jmi 

““b'J a “ a 1 

IjalicUl Lid 111 11 ni-ill - jjgxmHJI )5jl5 











; ^ jplpl ( X ) Affl* 3 djliidl jolfll ( V ) dpSlx 

( ). True ^j^l j£*^l gS^ If Ai*a. ^ Else Jk ^ -1 

(—ijUall Jud ^jLllj £jxaJ| 4jbfr L&jj ^jj Ajld AjjIuiaJI CjUlaxil JUlu CjLjjJjV ILL -2 

^ j A Aj i,a ^^ 

JjJ^Ll ( j £jij AjJjjjSIVI iajLujjJl ^Vmn -Uxla ^IjJP d jIuj (jc- djlaC. ^jjjaSJVI JxUl -3 

( 

( ) . ^dj jl cij^J jailaJl ^uul IJjj <jl ^laUjjJI ^ UjjIjL) jj lj1jjx1a]| AaaD JC-ljd jLi -4 

( ) . UiljLI t> jjc- <$l Sixlj Sj» Procedure f qLj -5 

^LJI JMI 

; jGli Iq i *1 Wil^p jii A iinLioll dpl^ill 

( Select.. Case - Integer - Dim - Step - Sub ) 

. £jilll (jA\ AW I £y* jjSI Jj^j 4JIa ^ .^Vmn -f 

.ALxXi ^hViuilj H jjxiUl ^L -2 

. ULljidl j^Ij SjUjJl A^jd 1>^ For .. Next Ala^ ^. AjUS ^jc- _3 

jaSl ^ ALUS jjSIuj Code UjjI (jtS U 1 Jl AJLx ^.(^c- LaL -4 

. Class uLL-aLI Jib frajA 
. Lid A^jxuH j! jc-VI (jjjSL ^jLLuu .£jlll ,jj» jjilUl _5 

-JUI ji^i 


:^lojo^l 

.<> Const X As Single fa ^ -1 

. j& ( 5 + 3 ) * 2 AajUuaJl Aulaxil JuAjj ^uU -2 

fLL ILu “ a ufl j j*»a jjC- HjaSI (j-a JJjU J±a_4 Code 4jljSL .Ala^ ^JLLL -3 


gdljJI 


: dlb-froll Uitjlaiill <)jj <)o <i\i%n11 djla,lll La,1 

Lbl _ display Ob^l Sbl ^ ^L U JilUl jjSII LiU Lc- _f 
Dim X As Integer , Sum As Integer 
For X = 1 To 5 
Sum = Sum + X 
Next 

Lbl_display . Text = Sum 

(5 - 10 - 15 ) 

: Label 1 ObLJl SlJl ^d ALajc> L» ^ld JjILaSI jjSJI LiU -2 

Dim Y As Integer = 15 
If X mod 3 = 0 Then 

mm (jijj anal ^alajLJI ljJLlJI i linll - jjgnn^ill ^ |5jl5 













Labell. Text = "True” 

Else 

Labell. Text = "False" 

End If 

_ (True - False - 15 ) _ 

2016 AiaflU-a-11 

J$ 2 I JMI 

; A ini Lip dpl^i i < 1 —■—iHI JpaJI Jp^l 

.4_aI£ jxj La jjjjj Uak jjjaull 4 _ao 2 I j| jf.. Then .. Else 42 a^ -1 


. 4^ 4-Jaj<ui .-2 

. A a\\\ Ayu . -3 

. £E-aUjail jU£l fUiil ^^all fUakVI £y* ^ .-4 

i^uil jmi 


. r U11 r 11-11 ,:^1 

. <Laj£ ^ic- Jj^aaJl djlc-Jluj) lip jax* ^yu) 4j f Ijal -\ 
. JljSVI 4-4 ^jj al& ^jlail Ala^jj 1 jojju V IAJxj c_u£j La -2 

. jiiSI j) (j^aLuli .lLa Ajjaiaj <jLljc- CiLal£ juu -3 
. jlj£Ill uj !ja JJC- 4ijaua 4Jta ^ <LuaLk jlj£all ^ ^Vu *m -4 

. jj* la jl Ao^alk f Lu Uak j) <_j |ya <Laulj <a-ajall Jj£ ^ £ j^ -5 

-JUI JMI 

r ^tl1l M ^11 ,:^1 

. 14 / 05 / 2016 (j* <jjjbll 4_ajS t-i^LLa £jl (> cjjlaS P_Date £LLV! jjujb jc- -1 
. N J^b-all Text Boxl SbVb t^It-kj) ^Iluj ^1 <LaaiI| (j rfiurtVi -2 

. 4-uj jXalb JJC- JtkjV <—ualia £■jj jj» jbLLa jfr <j!^VI -3 

. For . Next 4laa f hVu + i b 20 J' 3 0* ^ 3 4-a^jli! JjSj jIjcVI <_£-4 

griljJI JI^JI 

alU -ql * v^l 


AJbii aiuii 

^jVI 4IUI1 

Dim X As Integer = 1 

Dim N As Integer = 12 

Dim M As Integer 

If N > = 10 Then 

For M = 0 To 7 Step3 

Label2 . Text = "pass" 

X = X * 2 

Else 

Next 

Label2 . Text = "Fail" 


IjalicUl Lid 111 1 1 n nil - jjgijn^ill j^n )5jl5 

















Msgbox (X) 

End If 


l jA JjaLuJl Jij£Jla ^ajuA) jaaaull -1 

. j ij£J| La'"' ^ jaia-aJl 4-aa2 -1 

Liiaa Jxa Label2 d^VL J^laa <Ua£]| -2 

; ^ J jSJl jaiaa ixa ]\| jaxlaJi <Laa2 -2 

:uAJjd» 

: jA jljUil Lal^a ^ -3 



2016 jd-» - ijdill -12 

j^l jmi 

; j i»ll d)l i-frll ^plpl ( X ) Agile 3 kS iMllI d)LiJI ^lal ( V ) iallt ftaa 

( ) . Selected Index <^a Combo Box SUVL ju akll J! j^La Aa^aliJ) _1 

jIjpVI OajlaJ (Integer - Long - Double ) <> -2 

( , > • ^ 

Function ^ jA U£ Single ^ Area 4*^0^ -3 

( ). Area (ByVal Radius As Single ) As Integer 

( ). Instant Messages 4ajjja£JVI <> -4 

^LJI jmi 

; jpLi Iq i *1 4 fcfJ 4 | )o Lla>lil ^Ia£,l 

: jA Sbl *uia ^ l)^ jaiaa jxj -i 

Dim X As Integer = 60 
If X Mod = 0 Then 
Labell. Text = "True” 

Else 

Labell. Text = "False” 

End If 

(60 - False - True ) 

: Constants ^ _2 

( Jiu La j£ - ia&S ujLiaxlt liAaa ja-uj flaat - Ja &2 Laala3l X£* ) 

: jA Do While .. Loop 4i*a> <> -3 

- True ^ jL£* - True jlj£) 

( False ^ jL£* 

: 20 False Select.. Case <> -4 

( Case Is < 20 - Case 1 To 6 ,20 - Case Is > = 8 ) 

: l^alC’LLuul L& £aa»ufl jaC- 4aaVI LjI jaaauJ) £>a (5^ AddArea ( ) fad-J 4Jl>i <j*ajAa -5 

( A=AddArea - AddArea( )=A + B -A = B + Add Area) 

-inm (jijj mj tgaluUI ljJLlJI i lir-ill - jjjijn^ill ^ |5jl5 












-JUI 

jil ftc jJa^aJI fi. j^'ill ^1.4%'imLi jjAlill j|k ^lo'itillLj . ri^il —1 


: iHH 4 I ojI^H 4 I .j !1 i»'io 1 14*10 



m 


0 


T jAj jii a 3 jLjll ^Uai,lil 

.Procedure ya,U1 ^yc. —^ 

gdljJI JMI 

jJLall ^^^11 4^ io jVinil — 1 

Public Class Form5 

Function Sum (ByVal X As Single , ByVal YAs Single ) As Single 
Dim R As Single 
R = X + Y 
Return R 
End Function 
End Class 


. l£j j iajtujj -2 


4**l J\ A^\ 


: Ci \jaiiaJl fbujjj yA jjJu Jj£Jl 4 jU£ JC-i J)o While ^I^Luib -lj 

Dim A As Integer 
For A = 5 To 50 Step5 
ListBoxl. Items . Add (A) 

Next 


“lAP =rnz.1 


Ijala-cUl lULUI i n nil - jjjnn^ill ^ )5jl5 




















2016 AiaflU-a -13 

JMl 

; <i\i%ri j i-frll jjl i-frll ^plpl ( X ) Agile j d)LiJI ^IpT ( V ) iaHt 

( ). A n j n jjc- j Aaaa^ Ajjjc- ljUUj (jjjiU Boolean £_jaJ! £)•* jjjuaSI -1 

£jU If.. Then .. Else 4iaa> Else Ji AjkJI AiL -2 

( ). True 

( ) . jIouj fLuu) VbCrlf Sjj)>^A^al&Il ^Vutn -3 

( ) . jjjxj <> J&i jblkl AJU ^ Select Case ^ Aa^a -4 

jmi 

jul^Jld 4 fcLi loo d-ila^l La ,1 

. qjjus .Jjlaa Jj£> j <ja aa_a ja& Jac> Do While AajIjS^t AllaJt Jjjjj -X 

) 

.jfixa Name <*£ Name = Labell. Text oai^' 4 l*a> ^ -2 

( jaxa-a ^j-a A-aaS - A_a-alk <j*a A-aaS - i>Jja*a A-aa5 ) 

. Uai Const X As Single JUll J iiiil £> -3 

( Jaxuiall ±£> - (jjxl - ) 

.jA (3 A 2 + (2 + 4)*3) AaatutaJl AalaxJl jaiH ^aU -4 

( 10 - 27 - 163 ) 

.^jjakty! tf*u}\ Jliwl <>» -5 

( Ja^u U <j£ - ^^ikail - ) 

•JUI J|£*d| 

:d^m^ u-^ju^i 

.Jfc 100 < > 100 -1 

. <jusu jjxa V Procedure -2 

gdljJI 

J-iLfloll i^lla daalajl iiliiiiiU *ja l 

Function Area (ByVal Radius As Single ) As Single 

Const R As Single = 22/7 

Dim res As Single 

res = R * Radius A 2 

Return res 

End Function 

-inm (jij-ii mj tgaluUI ljJLlJI i lir-ill - jjjijn^ill ^ |5jl5 

















-3 . *tj»Vt JaiUj -2 .f lj»Vl H -1 


2016 ^ AiaSU-4 -14 


j^l JMI 

■mill Ld iLiiJI „U^1 -f 


. JJLuuu fUji l1 jJuj £)l CA^J <a£ll SjSlij a A ^Lal . -1 

(j^ajsu ^JUuaII Aj^^ui SjIaIwm flAui) “* (jf- a jLiC-.-2 

. (jj» 

. JA (5+l)*3+2 :^hVI A*l*dl -3 

.<> ji&S AJU If.. Then .. Else -4 




Dim X , K , Total, As Integer 
X = 10 
K = 90 

If X < 20 Then 
X = 18 
K = 100 
End If 
Total = K * 2 


. k=. 


. Total =. aajI 

: (jdU U* to 4 mI <u^i <**) - 

^ui jmi 

: Siam ^liLiidl ok J M r ll—II ‘“^1 

. jlxyu f Luulj JIaJVI j-a j AiLuaV ^VLttj ^ja lIuLj - \ 

J& fIL lilijj False ^ j' True t_j|j-ua La) AajU ,jj£j A^»ajj]1 J_2 

. ^E-aUjilb (jLu jl jJLLa jl A_iuaLk 
&JA AiiH ^jj ^yuVI )AA ^IC-ALuit -laC> La ^uut Code ujLaokjJlj (ja AC;-3 

. tjLaalxlIlj 


toUil J|£*d| 

*al| ^1 ( X ) ^ ^ i*** 1 !! ijLiJI ^Ipl ( V ) dp lie — 1 


( ).^ 


' -al^VI ^±ao*n Integer , Long , Double £'jj' <> -1 

( ). ijjtt Uai jA Din X As Single ^ -2 

IjalicUl Lid 111 1 1 n nil - jjjijn^ill j^n )5jl5 




















: jjkjl aiViml i<M d-JLill 1 till i 

Function Sum (ByVal First As Single , ByVal Second As Single ) As 

Single 

Dim Total As Single 

Total = First + Second 

Return Total 

End Function 

. J\ a^1\ -2 .f Ifyull -1 


gdljJI JI^JI 


: .(GL loo d \\-lC |i=J ,o ilill dfto m 11 ^4^3 ■ i*i^il —1 

. 3.14 pj CjjIj -1 

. Uljia-a <> TextBoxl SUI £lja) -2 

. A TextBoxl Shi -3 

: TextBoxl «a-aJ1 /Lxiaa 

jJ iio4W^Jl do-^11 lo iJbll < 14^11 i‘*l i*i iUU -j 

Dim N As Integer 

For N = 2 To 10 Step2 

TextBoxl.Text = TextBoxl.Text & N 

Next 




: tfllLill iH i*i A£_i R j i»’ioH dp t \ lo — 1 

Dim R As Single = 2.5 

Do While R > 3 

R = R + 2.5 

Loop 

Msgbox (R) 

iJLill i4^11 .4 1*4 i'i ^IlLi lo — 2 

Dim A As Integer = 5 

Dim B As Integer = 6 
Msgbox (A & "x" & B & "=" 

& A*B) 

|yjii sjsls j 

l 5 aluUI lULUI i nnil - jjjijn^ill )5jl5 










2016 JjjU - f -15 

j^l JMI 

; ^Ipl ( X ) yi* ^ )iV.^»il| djLiJI ^Ipl ( V ) dp He 

( ). la&a Si^lj SjaJ ^jjSj Procedure f b^VI -1 

( ) Selected Index ^ Combo Box j^xJI A^UJI _2 

( ). jfc Else J3 ^1 JljSVl LiH ^ If.. Then .. Else J -3 

( ) , jl LiJ2LJ i-ltJ <jl LjtJjxlall AjjUjU JPljS (jj» -4 

^UJI JMI 

<i ] t -Lj loo ^ ;vall d-ila^l )jftl 

. lOyil 1 <> .For X = 1 To 10 Step2 Ai** ^Viun _i 

( Jxuj Lu» f^V - Aa^jjil Aili - Aj.j jill jI.ic.VI ) 

: Aj aJU-jJI JjAl^a Msgbox ( "3" & "x" & "3" ) AIasJI ^ -2 
( M 3"&"x"&"3" - 3x3 - 9 - 6 ) 

> 2 a 2*(4 + 2) + 14/2 AjjVI A^L-aJI Aul*dl -3 
(52 - 25 - 31 - 16 ) 

-Jldl JI^JI 

jail^dlll ^yjLi Iqj 1 ii»‘iino 4i—■—illl JpaJI Jp^l 

(J^uJ' Ikk _ Logical _ For .. Next - Do While .. Loop ) 
.^uL jjinii x&$ Byte lh j^*^ 9 256 A-ajaJI Ajc. -1 


Ayjnty Uai. JjLuij £)jJ Ji-ij^ Jjill J^Ajj . Jjaj A^ ^ -2 

. SjjULu ^iuaj cijAjj 

. JJC Aij*-« ^JC AJIa ^ oJaLa. AIa^ -3 

gdljJI JI$mJI 
:^l,Mil-l 


Function AJlJ jjiJI _i 

Function calc (ByVal N As Single , ByVal K As Single ) As Double 
Dim res as Double 
Res = N * K 
Return res 
End Function 


|yjj) ajul ^gala-cLJI ljJLlJI i lir-ill - jjjijn^ill ^ |5jl5 














.AiUi^-2 . 

,oiill iiit Label jbjll.teL uhliim jJl^> 4 4 J-«^JI.Hii nAiu-^ 

: Text Boxl dU 4 UL> a^HJI 

Dim D As Single 
Try 

D = Me.Text Boxl. Text 
Select Case D 
Case 100 

Me.TextBoxl. Text = 

Case Is < 50 

Me.TextBoxl. Text = " JjU" 

Case Is > = 50 
Me.TextBoxl. Text = 

End Select 

Catch ex As Exception 

Me.Labell. Text = " ^jVb 4*jH! JUj!" 

Me.Text Boxl. Text = " " 

Me.TextBoxl. Focus () 

End Try 

4-ula! 4 a&W JUjI -3 3Q 4_ajH| JUj) He -2 70 4 _ajH| He -1 


2016 - IHH! 4ijab^a 16 

j^l jmi 

! «i% i i%n ji-frll djl i-frll ^plpl (x ) Agile $ ii% , iMill d)l i-frll ^Ipl ( V ) 4aHt 

( ) . HS& Aaa^H I jjjeVI OjJHii Integer , Long , Double c> -1 

( ). TextBox Sbl L^ia HIjjVI £-* qa JlHalml -Hj -2 

( ). Selected Index ^ComboBox SUVb 44^1 c-iHjj Jl jmj £ Aj^aUJ! -3 

( ) . 4jjliHl H^LabL4 4^1 jA & JHjlHI -4 

( ). 0 j* For M = 3 To 1 Step-1 4iiaJI 4 jHj *l$HI 4 xj m 3-*Ja -5 
( ) . lHjHVI djHLi U JS Vj IHjjiSl) ( _ ? le Jjj V -6 

( ) . 4-uaHLaJi CjUaluH ^4*l!i je -7 

jmi 

-inm (jijj mj tgaluUI ljJLlJI i lir-ill - jjjijn^ill ^ |5jl5 












; jGli loo ^ ;a,iall Lila, HI La,1 

: U t nno jlj£all aal ja Ai j3la il£> Aajl jL a Aiia. JJaS) -1 

( Select.. Case - For .. Next - Do While ) 
jA Txt_display ^ A^ajc- U ^LUI AjSJI Liu a*j -2 

DimY As Integer 
For Y = 2 To 10 Step2 
Txt_display . Text = Txt_display . Text & Y 
Next 


( 2345678910 - 2468 10 - 2 ) 

: 2-(7 + 2)*2 Ajjl * AjUtll Liu ^ala j± 4 _3 
( 5 - 14 - -16 ) 
: Constants ^ ^aa -4 

jC- AaC- - La£ £t-alajail tuLaalxa Liu J±ui f Uaj - Li2 cualjall jC- ^J^VI AaC- ) 

( ^talajall UaLaaka Liu jauu flaai LllLj Caaljall 



-Jldl JI^JI 

11=1 

) a4o^JLa A ini 1-La lo-a ( 1 ) a^oAtll »®W ■ 

( ^ ) 

(>) 

AJlJ jl alula jl jaila jl S«Jja«a A»aaS 

j* Do While fl-iaoui) <> 

jaaxa <> jaSI 

<Jj£a £)l Lai f 1 j^VI Luuj 

True LjuJl UIlL Code jljSa 

^ ^ Select Case f-iiluu 


2016 jA-* - Lf^J* <&&*** -17 


J^i JMI 

; jGb lo ua>l 

. Combo Box Sbl ^ jULLLI juL*II J.iau Au-alaJI ^ .-1 

.jA (4 A 2/2)*(2*4-18/3) AJLill AaatuiaJt Aalajdl Liu 0jU U -2 

.4^ jjj.A±a> Dim Name As String 4j£l! ^ _3 

: ^tall AjSJl ^ Astaljll A-aaLlj AilLl ^vuil jrjilul -4 

Public Class Forml 

Function Sum (ByVal First As Single , ByVal Second As Single ) As 
Single 

Dim Total As Single 
Total = First + Second 
Return Total 
End Function 

mm (jijj anal tgaluUI ljJLlJI i lir-ill - jjjijn^ill ^ |5jl5 


















(jdUJI JMI 

; j i»H 4)1 i-frll ^plpl (X ) Agile 3 <i\i%yill djliiJI ^IpT ( V ) iaHt j^l 

( ). Const cjjljjil £!^VI -l 

( ) . VB.Net Jl ^ Aa 3 jaJl £jj iajjU & J-aU-ftil ^Vimij -2 
( ). <aaL jj*j V Function Lai aj*j Sub *b*VI -3 
( ) oAaL*I c> aj*j ^ (Select ....case) -4 

( ) . jjjjlL j) Aj.n'alVi j) jjxIaj j| Saj^_a A-aaL jjSa £| ^jS-aa -5 

wJUil jmi 

: ;"«^n <^-i-i Iqq «Mal 1 d-ila^l La ,1 

.^ j* Din X As Single Aj£il ^ Ualil _i 

( JJLuilll Aac> - (J&.1a - (jjjA ) 

. <jaaajU«Ia jjc- o ILuaI I <jV. 450 < > 250 -2 

. -jib AjjI j£a Ala^ J^adi ,jli lAua.a (ja*a» A j£J j!j£alt ual jj» AAC- Aij*«a AaC> -3 

(For .. Next - Select.. Case - Do While .. Loop ) 

. jail j! ±Ja A^a ja Aaa|A£ JaLuij 3jla£ .-4 

(A-ujjaSJVI AiL^^LaJl - AajjjjilVt cliULLixaJl - jjaiJVI ) 

gdljJI JI<$mJI 

: d-LiHI ^il il-LftJl ,U^al 

.laijjaj jikj jjjjoaLSI l^JlakA) ^1 CaULall -X 

.^ Do While .. Loop AilaJl <> -2 

.jA If.. Then .. Else ^IaaJLuiI ^a Aila^l £jiall caljLi£l aa^ -3 

2016 jjU - U3aM^-18 

J$2I JMI 

. aajgtf j |^1 a jl : *U ^lol (x ) yi* j jjL^ll ^Ipl (V) jfljk 

( ). j»ij j! L«J2LJ jaxLaJl ^ui) lAaa (jl ^_aUjail Cjaljal) jl ljI jailaJl Ajauij AC'ljii A^l -f 

-imn (jijj mj tgaluUI ljJLlJI i lir-ill - jjgnn^ill (Ji )5jl5 


















U-be. if.. Then .. Else ^ Else ^ ^ ^4* -2 

( ) .False 

( ) . AjjUaII cIlUIjla A^t jA & J^IxaII -3 

( ). 0 ^a For M = 3 To 1 Step -1 4iUil ^ M -4 

X > £ib 0l4 100 ^Y j^UJIj 20 l $jLui X j^UJI ujis Ijl -5 

( ). True > Y 

^Ul JMI 

: . j iiii^^ll 1o-i djlilll u1)1ja]1 Jq^I 

: > For .. Next 41*^ a* Next >»VI AiJaj -1 

( Alb j£ - 4 _ao 2 0a dAbJJl ^Uu2 AjjlLa - SjbjJl A AilaJl jaila AajS SaIjJ ) 

. S^b ^.... flL^VI a^JIx4 AUtU) Visual Basic . Net ^ jkjfi -2 

( JJLuillt Alc> - AjjxIM - Ab&klaJ) ) 

: 8 iS AilaJl jjxla A-ajia aJU ^ True ^-4b AJUil Select 

( Case Is > = 4 - Case Is < 8 - Case = 1 To 8 ) 

h jjJu ( jls^ f lb li t n ii 4 cijjxa jjC’ cj! ja!\ qa AA*J AA^_a A j£ j)jSll ^Vmn.Ala^ -4 

( For .. Next - If.. End If - Do While .. Loop ) 
> US ( Single - Radius - Integer ) ^ Area 4-^1 -5 

. Function Area (ByVal Radius As Single ) As Integer ^ 

-JUI Jl^ll 

: j|L ^o /^Iiai ^ ^i^ia 

. False ji True Abb Double c> -1 
. L Jzk ia Din X As Single ^Vl ajSJI ^ UaSJI -2 
. LUaljjfl! Jua SAbJit bi £l (J j»a lA^i For .. Next Alaa. £a Step AjbS ^ ac aJU ^a -3 
. Const 4la^ flAblmb U)jjilbl (jC- fb -4 

gdljJI Jl$*dl 

; d-LiiJI Ail iLiidl ok JjJj tolidl plhnnll -Li^l 

bib jiui f bjj l14J& jJuj (jl (jUj Vj jjjjoaSJI SjSlA A <jSU1 (jf- Sjbc- - j 

. 0abjbl 

<jbj j) jjila j) Ao^LS. AaaS ( ^Jc- fib llab ji c_)l^ua Ul Abjb ,jjSj A_xajb) AjS ,j a f -2 

. 0^b jbb jb) 

. Uljbl qa AAP ^C-Aluuj dA^I j Sj4 AjC- ^Ixj -3 

. Aj<^m ^a^IulaI) U^Ua^ Jb&LuiV ^Ablub SIaI -4 

-inm (jijj mj ^alajLJI ljJLlJI i linll - jjjijn^ill ^ |5jl5 









2016 AiaSLa-a -19 

j^l JMI 

: ^plpl ( X ) dplk^ ^Ipl ( V ) -*0^* 

( ) . 9 ^ l£j*^ Msgbox "3" & "x" & "3 M j*VI -1 

( ) . t> J-sc- (j&Siulij SaxIj ijA Procedure ftj+VI 0^ -2 

AajLuiaJ) AaLaxJl ioijj 0 jU (jC- 5 + ( 3 * 2 ) A^LuiaJl AolaxJl £uU t V -3 

( ). 5 + 3*2 

( ) . Do While Alax ^Aao-luj LLu ■' a cijjx-a CjIjaII £ja J- 1*J J.la»a Jj£ jl j£j] -4 

0 jU <jj£j 1 - a + c ’ If.. Then .. Else ^ Then ^ c$aJI aIL -5 

( ). False 

i^uil jmi 

; <^-i-i Iqq . ***^1 d-,LiJI ^lial 

. u)jjilaJl Ajauj JC>|jS ujv ,jj» 1 JJJXJ.jJxLalt ^uul -1 

( Hany 25 - 25Hany - Hany_25 ) 

. Ljb Combo Box $bVb j+xaJI j^xl\ ^ ji&i A^Uil -2 

( Selected Index - Sorted - Items ) 

. iald Aajao^II JtJPVI (jj ^.liLLuu.^j-a jJu-aJl -3 

(Long - Single - Double ) 

.> For N = 1 To 12 Step3 4ilxil n -4 

(10-12 - 13 ) 

wJUil jmi 

.SJbji) A-ajS I For .. Next 4-W t 4 Step <bb£ ^ AJLa. ^ _i 

. UJaljjSl 

. ^Auiili ^iaxj JaIxa jA . JaIxaJI -2 

gdljJI 

( <)o lo ( 1 ) J* 8 

( <-J ) ( i ) 

A-axjj -lj£> ^xjlall Ala^jj Jlj£1 jjjxj V lAAsu l_u£j La Function A^IaJ) -1 

^jSVl| 

imn (jijj mj ^aluLII ljJLlJI i lir-ill - jjjijn^ill (jj )5jl5 






























2016 jjh - AiaaU-4 -20 

j^l JMl 

: ^plpl ( X ) A t^ t ' 3 ^ .»>»>1| ^Ipl ( V ) ^t»a 

( ). False j' True ^ Double <> -1 

( ). Selected Index ^ ComboBox SbVb j^£i jjl\ 4^UJ| -2 

( ) . Text Box cjljjVI <>» -Jj-Jadl ^ c^kLia JLalyul -3 

( ).16>2-(7 + 2)*2 Uoxil £jU -4 

( ) . 4jjULaH C£Lalxa jA & J-al*-aJl -5 

jmi 


: ( *J ) ^4o*Jl /lo d-uuLi-i lo ( 1) 440^114*10 w£l 

(^) 

(') 

(j-ouakj Vj (j-ofuakail 41 a^ ^ jAjVl eJjIaJl ^ 

4-aJ& l$J 

Sub f L*VI -1 

Variables ££ O^Vl ^ p\\u*\\ 

Function -2 

IgJ ^j^ouakjj (j/ijurtViM A1 a^ (jj» c>^V) cijlail ^2 ^Vu <m 
. L£2 £$^¥1 ^ 4-4*2 

Variables -3 


Constants .4 


Dim ^i^-5 

-Jldl JI^JI 

: 4) 11114HII 4 *J_|_| loo ^ iMill LUill >Li£,l 

.^A Ijftj* *' A CjIjjj Aij*»a lie- ^±kluu 4jj|j£j J^ia2l -1 

( Do While - Select.. Case - For .. Next ) 

: M ^«aj Uik. ForM = 10 To 1 Step-2 ^ ciSjjj-2 

( <Laa2 ,j-a ji-ual - 4^u2 <_£ jLluj j) qa jslus) - 4_jl£jj| 4^u2 ^j-a jj£| ) 

8 : csj^ ^ False Select.. Case <> -3 

( Case Is > = 4 - Case Is < 8 - Case 1 To 8 ) 

jJ! J!>«J! 

4 j 40 fO-i c-iHI ia^ll llaijl fC*J OAa, — 1 

. : . : daaJI Const X Integer X = 10 

““l/P inal 

IjalicUl Lid 111 1 uuaJI - jjgxuiHJI jji )5jl5 






















; jJLall «" AiU Label 1 ^Ain jd ia^) A on A g * 4 M Iq-u 

Dim i As Integer 
Fori = 2 To 10 Step2 
Labell. Text = Labell. Text & i & " " 

Next_ 
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J^l JMI 

; A* ^«| j «^H ijl «^U ^lol ( X ) Affl* ^ jjbiJl ^plfll ( V ) dplit ^tia 

( ). ( String , Char ) £IjjI <> cjljjilail _i 

( ). j&si jl^ii iiu if ..Then ..Else ^f.ii^-2 

( ). ^ (3Ahmed) -3 

( ) . False jA A > M g3U jla M = 50 ^uiij A = 30 tJl -4 

( ). fA\~u » a\\ Ci ^lii« Jl jVu »V ^Viun TextBox SIjI -5 

( ). JzjA j^x j ^ flL Do While .. Loop -6 

^LUI JMI 

Dim A , D as Integer : D = 2 
For A = 2 To 6 Step 2 
D = D*2 
Next 

Msgbox(A) : Msgbox(D) 

-jui ji^ii 

: d-LiHI tLiidl -f 

. 8+5*(2/4) A_uLui^i) CjLlaxii liiH ^uU -1 

. Uualjia).Sjbjil 4^ (jAi lif 2 For .. Next £* Step *bb£ ^ AJLa. ^ -2 

.V Select.. Case 41 a* -3 

.> dl jjSII (fristname) -4 

Ajj-ua ^ Jij£Jl ^2 UaaJt £jj _c_i 

.: .: Din X As Single 

mm (jijj mj tgaluUI ljJLlJI i lir-ill - jjjijn^ill (jj )5jl5 
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j^l JMI 

; i-frll ^plpl (x ) dp Ik ^ dapi%nll j)l i-frll ^Ipl ( V ) rip tic ft** 

( ). False jt True ^uLI ^ Double <> -1 

( ). £jiUl ^Uu^l <> jjSI aJU Select.. Case ^Vlun -2 
( ) . OsW -3 

( ) • ^ ^ Do While 4 jjL£^ 1 AilaJI <> ^jjLSI 0 ^ -4 

( ) . ^-aUjoil (-ilUall ^joi! 4j 3 jaiu-aJ ^uil£ String A^l£ ^IjLIujI -5 

^ui jmi 

: .jul^dlll 4^ - J-f loo «i\i%rt11 djla,il1 ^lial 

; UL “ A Aijxa Lfr AjjIjSj AaL JJaSl -1 

(DoWhile - For Next - Select Case ) 
:j& 2 * ( 7 + 2) - 2 Aulaxil 0 jU <jl£ AjjIu^JI cjULwJl LLj Ajji ji ILL _2 

( 5 - 14 - 16 ) 

: Const X As Single <yVl JjSl! ^ UaaJI ^ -3 

( JjLuoil Lg- Lka. - ^jaJUai - L5 Lala Uak ) 

. A^a^uD AoaSijJ! CjULnJl ^Vmij.,jj» jJlLaI) -4 

(Long - String - Char ) 

. LL Ao*<aI]| LjULnll (jj jLL! ^ALLujj .£jl!l ^j-a jJu-aJl -5 

( j^Uj£_ String - Char ) 


•JUI JMI 

; ( *j ) ^^11 4|)o A ”“Lu lo ( 1 ) «)a y*^*\ 


(^) 

(') 

,j^aoyLi A2a^ ^1 ^2 1 g <atiLLat Jjaj V 

VbCrlf -1 

Jaa2 fUjj l$J Li (j-otuaD ,jL»j 

Variables -2 

fUj) ^2 fUjj IgJ A^u2 (j^aiuaLj ,jL»j 

. ^-alj ijJI JJLuu 

Function -3 

jLuj fL uJ) ^2 ^Vn >n aJj~VA-a A^»l£ 

Constants -4 

A-<u2 IgJ (j-ouaL 

Sub ^lflj^VI-5 


l 5 aluUI lULUI i nnil - jjjijn^ill j^n )5jl5 






























1 * \ o jjU - GUl&ltl 
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J$2I JMl 

: jj^II JjLiiJI folol ( X ) doling diuAull ijliidl ^olol ( V ) iollfi 

( ) . ( RAM ) j'ignp^ll dj£ih ^ jjpli jp ni jLu £gi -1 

( ) . TrUG (JujjjiJI jiisUI 3 JU jg£j La^k IF rtljp L^d Else jU [gidl ^g£JI idij -2 

( ). ( 9 ) *i aJLuj igg^iin jbpy Msgbox ( "3" & "X" & 11 3" ) jo ill -3 

( ) . j jio'i gl minb gl jislio jo gl ibjno /ifliii jg£j jl j^o.; j-ij.n-S'il l -4 

( ). had ii^iig zijoJ jg^j Procedures CiidpUi ckvi.ni -5 

( ) . Cujlilll lJLc lJj /iinb CjULu £l jj±ii i_pj L^gjli^JUl igWill jo /ulanll jjh jo -6 

^ui jmi 

: alkoil ^lol^Jl lo ^ i.i.o d-pUl jljLtdl Jo^l 

- Over Flow - - _ & A_«^lc. 

Procedure flj^VI - Function 3^1 


.gl idjnj jj&ioll /mil hu jl dflUjill ^d Culglll gl Ciljjaipll /hq.» i‘i ^dgd uni -1 

L^iill ng£ll iudU nsu R jjjufljl /ipm -2 

Dim R As Integer = 1 
Do While R < = 1 
R = R -2 
Loop 

Msgbox ( R ) 


. /Ofljdj ngsLi . Lai HoASU ngsy U Sub dp ill -3 

.rtJNi jjo Parameters hiLug kali u jignii jii su -4 

gl /ici;l.riflll migjj^IUI hjLugll ph-Vi.nl; iitpio ^Igju: »lgl.n . nsu -5 

. jjjjJJI njnisu gl Ldjgfu gl alpl 


«JUI Jibuti 


^□Jll 4^11 jii llaijl ^ajj— ! 


Din R As Single 
Const X As Single 
R = TextBoxl 
Label2 . Text = X * R A 2 

















jJLill i^]1 liili ittU —-i 

Dim D As Single 

pjoll jgfij Iflik iudull gjli ga lo -1 

Try 

l^d Text Boxl 

D = Me . Text Boxl . Text 

.: Zero 

Select Case D 

.: 2 

Case 0 

.: 100 

Msgbox ( "jin") 


Case Is < 0 

lid Sioi'i iJju /LuUI ClLlbUI jo |gl -2 

Msgbox ("joidII ciaj") 

jK ..ill 

Case Is > 0 

Me. Textboxl . Focus () 

Msgbox ("jfliaii fsgfl") 


End Select 

igg^iio jjblzu jjiigoll gingl pvVi..M /iLuug - 

Catch ex As Exception 


Msgbox ( "^c jfoi") 

jgiUQ Jab jj£|gol| giogl p^Vi.ii'j Jii.nl- 

Me. Textboxl . Focus () 

ipiJI 

Me . Textboxl . Text = 11 11 

2^goill Jsb jjiigoll juogl pvYi.m /Luolit - 

End Try 

. Jbll 
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d$aiJMI 

: ji> iMi ti»ll 4 \\ i»H f olcl ( X ) dpHr. 4 ii> imiII d)l i»11 t q1q 1 ( V ) dpllr. 

( ) gjtoli|J1 Juuu* /um flit! /oai'(j!^1 a«i9 IQJ ul^Jull — 1 

( ) . Text Box \&io ulfj^1()0 AsJLxJl %yO pJbawJkl uU>J« JUBiw! (oil -2 

( ). aa«9^llutilullcjuua* uaC^i JJu Object <)lull g9 *-3 

( ) . Next Qal(t ^SUii' For obI(i liu ^ill cu/lj&Jl Atilll -4 

( ). Procedure sUjuum! -5 

( ). End If ^9 IFwli^ \y£jf —6 

^LJI JMI 

: jul^jlll <)jj jo djl^lil jJa,l 

.jlso /Jukl a«i9 ^9 p. Select.. Case -1 

-imn (jij-ii mj tgaluUI ljJLlJI i lir-ill - jjjijn^ill (jj )5jl5 















( Select - Case - Case Else - End ) 


94 ) ( 3 * 4 +2 ) Millet cuLoidl Aiftu gi'li -2 

( 14 - 20 - 18 - 30 ) 

.tf pjaow) VBCRLF >|9>aA1 ajOl —3 


( J 05. |^j3 ~ A la IS — Aj. 1^. jJbjj* £.LuLj| ^ 


.Combo Box -4 

(Items - Selected Index - Text - Name ) 

.J 9 &I ^9 p j Britu) ijjJly ,1**1 }lc> JUUttl JUL£> JiAIihI CP 9 m Igill fBAftll —5 

( Function - Parameters - Event - If ) 

. co cJIm»j( 99 jluo Msgbox ("3" & "X" & "3") , 0^11 -6 

( "3" & "X" & "3" - 3X3 - 9 - 6 ) 

^JLJI JI^JI 

UVi m |T 1^ A »«1 ^11 AA^U 

( Input Box - Parameters - Dim - SetFocus - ) 


, |Bw)ll IJUyl 1 Qu«m) AiC>^C> 1 |l.— 1 

.of ^Ipljidwl Procedure Ate^j^dP — 2 

. Text Box gai) 1 ^ 9 J^oJ>ljtt l w))i 1 {Mi 9 l .pjuwy -3 


.cdfr pljiawll ul I %y& |W —4 

frdjJI JM> 
: iijjlll 4 ) 4 ^! ^ llaajl -I 

1- Din X As Single 

2- Const BirthDate As Date = 25/1/2011 


^JLill i^ll \ '1 1 i‘i 44fc-i R j j»‘ioll (jp /i ^ lo ( ) 

Dim R As Integer = 10 
Do While R < 10 
R = R + 1 
Loop 

Labell. Text = R 


Ijala-cUl lULlJI 1 nnil - jjjijn^ill )5jl5 
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Ji*l JM> 

: ja^ga j-»a 1I jjl : *1| ^olpl (X ) dgjk j ^olol (V ) jgjk 

( ) . Selected Index gas Combo Box 6b{JU jf-hyH yJI jimJ (jail ditaliJI -1 

( ) . jlSI gl jaiiii ^±3 * tn '>0 f> diili£ JJLuj j Jc ojLlc d±jgJLSJ{JI ljLaj(±=io1I -2 

( ) . tfglwlll yuiJ dijldoJI ljJoLzo gis ( < > ) JoLzoJI -3 

( ) . ^oLijxll pl^iinil xi£ q«oLui jj£ gjlij yvJI y^gJ djgiiJIg oju{lr»[JI £ U=ii|J! -4 

( ) . Step doISj ji±ioIl oiUjJI J^so (jAoJ ( For .. Next ) dio^. ijub -5 

^Ul JMI 

• A ^lAll 1 ft .4A-i«. ft !i . nlll j ill |T 1^ ,|^1 

( Select.. Case - Procedure - Rem - JjjJ! ) 

.dpifill p\"vTnii gpLij.ilI Jib I'llpii vTUg ljUsaJoJI djLiiii -1 

jaL jaiuJI Iis rlciiiul xi£ lo pm I Qaj LjLoiLxiJIg jolgjf Jo d£go^o gs> .-2 

. LjUai-zIllg jolgjjl ois iiaii 

.(jua doiimcJI dijgji£J|JI JzuliugJI Jo -3 

. £joiU Jdlojbl Jo ji£l iggg dJb, (jua.dLo^JI pxiiuiJ -4 

. goLijjJI J.JUU rLul jj±U (| pis JjJiil jJgiipfJJ 6j.itIij djggao jSlol yu».-5 

«JUI JI^JI 
: a-Jlall WJ r 11—^11 t A.u -i 

. JjLimll l rLul Lax gag JoiioJI iliai{JI pju Lx&JJi Jo dlp a -1 

. Combo Box dbjl Jib axioJI j.faiiJI ditali -2 

. Ldliiio i 6g j V« J. 1 C Ljl ptJ I Jo w^i \\\rt \q A jl j At! p \"vTmT nlgA ~3 


" diilll ;^U — — p 


Ljjp-oi!) 

S jtpJl 


49 > 3 + (7-3) A 2 UajiI! -l 


Const X As Integer 


^lj n -i n -.I ^aluLJI ljJLlJI i n nil - jjgnn^ill ^ | 5 jl 5 






















gdljJI JMI 

djj 111 a Ik Li ^ -! 


ljJJAaxi (jxi JAad J_£iJ l_iluLLoJI (jliiJI £gj aaa Ljljjiio (jua jjaaIuicJI lj(Jaao (jpj (jl UajI IaI 

gxdjjjJI p x'vlniw 

. -2 . -1 

.-3 
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J$2I JMI 

»3Lall1,U11,lA1 

X = ( 4 A 2 + 2 )/ 3 - 2*2 cxuL»j 34 oA»x^ juitu jab X y\juV\ 6 *J -1 

• yu» cj^ cAf 6.-1 

. z£yjMS ^S* \fiA5< Ca 2^ ^^4 c4 fSjSdMi^l -2 

. True Jp))m$S cjl4^U tel True cJa*.cM*M -4 

• JiA*ju *LJ1 cxtAui j& ^ol« . —5 


^UJ! JMI 

. jjsuu pImuV fjSdMu Visual Basic oil? t)£<£■ cxA^ -1 
. <£>LA*A 6 JdB juitu {*ju \ ji® 4&j&u4 jus- cjow <£*£■ <£>LA*aJ^ ty* os<yJr -2 
. ^>\jyClj ^4 cjL> jJtx» jS Ox*P^6- 0 *j 3 f\x> jS CiSyP Q^-U o£ fA\ f. 'p^ -3 


IjalicUl lid 111 11 n nil - jjgijn^ill j^n ) 5 jl 5 


































Ijtuux9 jllh d>^>* 03)99 f )&> OS\±- OjP^S- ^ f J^hdUUJJ-4 


-JUJI JJ^JJ 

: ( «J ) 440*11 jj! <Lf^ jo d imlii lo(l) ^ 40*11 jo jja! 


( i ) J>*1» 

du Cup\S- djbjbw jmu -1 
c jSj&kS &$> ^ ^ j^duou -2 

j^4$ jofo jo*isb t»ju& £ j*Xh zJ* 6ju*» cjjIj -3 

$M3 


( <_J ) 

If.. Then ..Else 

635^5 o»y*y\ f\^\ 
z£ jj6 $\ op oA»£-\ zJ? j&Imu 


Dim 


QaAau j\S> h>)y£b Oi\j£ JUS- d) jd»- l)2S- -4 


Select.. Case 


gjj&ii &$\»j3-\ ^ 5^5 jj& f)S*»u -5 


a£p&\ 


gdljJI JM> 

: J^IUIao^II -1 


. 99 c) 11 c^a^jih ^j^<^jjda*j^For bteb*\&-\ 

. Label3 Total ^**14 o**5 c^jS- -2 

pi = 3.14 duS-C juuU* £$i <j>» dutS^pi Oaa9 -3 

: djjill ^iilLJI jo Msgbox aJLujll ^1 JO Jib j^laJ ^Ljll do^ill ^ lo -Sr* 


JjVI ilbJI 

4^1 4JbJ! 

Dim X as Single = 4 

Dim m as byte = 10 

Dim y as Integer 

If m > = 10 then 

For Y = 0 To 5 Step3 

Msgbox ( "pass" ) 

X = X * 2 

Else 

Next 

Msgbox ("Fail" ) 

Msgbox (X) 

End If 
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: d-Li 111 ,UaJl adlaa, lo ftaja J$ 2 I JI^MiJI 


l^alicLJI lULUI i nnil - jjgnnSII (^b ) 5 jl 5 


























plcn \'± 4 £> (1 ) Combo box Shill Selected index cuio(A)\ ruoa q<$55 Uxic -1 

JqDI poioll xjxaj 

. oia-6 byu> ^1c tlb )-6l<)D\ o* fic<)-6A-6 )ly55 For .. Next )-6l)\ <aiAIuu -2 

. Const cUlaa <phAIu>b OlyiolAll or olldll <tui -3 
21 4*3 + 2 fli^tm/vll ac?.pa)\ xiaii gib -4 

. 10 (J\ 1 o-6 taA^pl ihcDl ooyal For X = 1 To 10 Step 2 <Ulaa <o\auuT -5 

^LJ! JI^JI 

: .jiil^jlll 4 ^-lj Iqq djl^lil »ja1 

... I^jUjlLwI Jua <luVI ul jtujuJI <it Add Sum () 2Uta -1 

X = Y + AddSum () - X = AddSum() - Y = AddSum () - ) 

( AddSum () = X + Y ) 

............. 10 juull 2 UaJ False t$abb XdQ! Select 

( Case Is > = 10 . Case 1 To 6,10 . Case IS < 10 ) 

j! £|>>l jl SJbUalt jl Jgijsutt laiLwJI ^liieLwb JUm« JtljJuc j£ SjLc.............. 3 

( JL^JI . ) 

^buTuJI j^aJj Ua> JJlLwj jl jjl Jam code Juau ........ ?Ua>VI 2JL> ^ _4 

. g£l>U djjbU jmj 

. Syntax 2bj*Htj2UftiU¥l - Logic SUahUt . Runtime JJuuIll Juc ) 
................. fjW frAj&U f>JShhuki 4^bl jt u)U? jjM (j£ai _5 

( Boolean - Single - String - Date ) 

—lUI JI^JI 

iJj lo Jjlloll 1^11 do ^> yi i n l -' 

.*1. j^\ r*\ -i 

. 4jl +\Ijll 4 a£!| _2 

Function Area (Byval Radius As Single ) As Single 

Const X As Single = 22/7 

Dim res As Single 

Res = X * Radius A 2 

Return res 

End Function 

mm (jijj mj tgaluUI ljJLlJI i lir-ill - jjjijn^ill (jj )5jl5 
















: lulil aI^HI <jo 4^ (olol illiJl lolVilllQ 4^ 


^jLi AA* -V 


J j£Ji jjiij 

ijSA I 

<* 

(1-1.5 - 0.5 ) 

Dim R As Single = 0.5 

Do While R > 1 

R = r + 0.5 

Loop 

Msgbox (R) 

1 

( True - False - 15 ) 

Dim A As Integer = 15 

If A Mod 3 = 0 Then 

Labell. Text = "True" 

Else 

Labell. Text = "False" 

End If 

2 


2015 Alaab^ 28 


Ji*l JMI 

.yil^jlll 4 ^-lj Iqq «i-ila,lil >ja,l ~ ' 

..................... uJLb^)! ^JibLyuj Text Box 1 51 ^ uoli^aJt <JJLJ _1 

(Is Numeric () - Text - Rem - Focus () ) 

................. £^i)t jjd» ^ULi Byte ^yill 256 .lie _2 

( 5lra.lt I - frLjl ) 

............ja 2*5-4 A 2+3 ^jLoaJtJuJLugjlj_3 

( 10 - -3 - 9 - 3 > 

--SiUplj!J lL. For .. Next Step 

( V _ >5^0 - 2 _ j0>|3 ) 

. (^jLc. 5 Jo-!j 5>a 4_Lc j^ILj ^1 JlskILu/^ _5 

( - t Ajhl+«alll - - i/Jl Jill) 

i a-^m ^M-nJI ck JIJI cJ.^1 -II-11 «"^1 -<-» 

i^jJu 4 ^JLc. pllj liL^u* ljIjXI ^ aJi^ .a Jot* ag^ajjj ^-i ~t pj&u LJ uJL*^ -1 

♦ c#-*-* 

^l^JCLbul |X*C ^JlscJ Lajj^ ^ fl ♦ <“* )U- fjjt f*_td (J1 < <1~ ti\ (/< 1 ^ aiy 4a _2 

.^VIUa 

JU<» pJ j CL^jl ox-hj) JlC < >t ^ t ■* 4 0^1 » Cr 3 


l^alicLJI ljJLlII i hnil - jjjijn^ill ^ )5jl5 
















iHUJJ JMI 

iLuM jljLtdl Jo^l 

|«iLi if .1 

^) b < <■*)!^obJI(j j tluatj For IV — ..... To ....... Stop ..... ju>JJ^->3-2 

(7.14.21) 

.AjrfialjjSVI Alajfl £jU 4_«j3 4J jjiia 0^ c£^VI bj 3 

................. 4.................... _ 3.................. _ 2.................. _1 (_>tj^ji_4l i/uam*j i t rl^i £ja A 

Function Sum (By Val X As Single ) As Integer Jti)! 5 

............. (^a Sum JJIjlU la<» * Stl 

. ........... (J^L» ia* »<n ^jlj V ........... (J^L» dJLu^j uJlJ ^3 .6 

^JUI JJ^JJ 

: : *11 jolpl (X ) A tfl r 3 d^LiJI ^lol (V ) dpllfc 


( ) (J^-l SJ\jl 2 1 |%-aA Byte < 4 . 1 ^ aJI f I JljbILJ (j ^“> «* ♦ -1 

False gjU 0^=* ^ If.. Then .. Else ^JL«»'^a-2 

( ). 3)JuLd«Then^Jb 


( ) . lr>jl) ^3 Vbcrlf ^Jbtluu3 

(Jm 4 ob 1 I JujL*j f«!L) False While ^3 _4 


Dim X , Y , I As Integer 
X = 4 A 2 + 3 

Y = 2 A 3 + 5 
If X > Y Then 

For I = 4 To 13 Step 4 
X = X-1 

Y = Y + 1 
Next 
Else 

X = X + 3 

Y = Y*2 
I = X - Y 
End If 
Msgbox (X) 

Msgbox (Y) 

Msgbox (I) 


( ). Loop <JZ 


-■41 {O-i ^lilll i^ll 1 jil — V 


jljSliil !.}£> - \ 
x W-2 
Y^-3 

I 4aj3 -4 


IjalicUl Lid 111 1 1 n nil - jjjijn^ill j^n )5jl5 
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Ji*l JM> 
; U 

.Jla AjSja j! CjULu t flju/Vi t**iVi ^jljj V tJlSj ,jA 4c>jHal) CiULuIi _f 

.J 

.j!.j! SJja-a AaiSj £jj£j £j! ££ai (j/Tu/aVilt -2 

^iiVu/i.Aia^ La) ^£2 ^jjjLuil If.. Then .. Else 4iaa^ ^VL*n -3 

. J#** <> J^' ^ 

.£jii! Cy* j^*^ 4 LjUjiiVUt f tSj) -4 

(Jj^iVI <j*aj*J ^g J xLal) Aauaaujj ^iau 5jUluo-a fLa^l ^hVua) £)C 5jbfr . -5 

. L-ilixJ) QA 

. Ijk Lsubma jljSoi) <Jj)ja Aijsua H& AjjIjSj AHa -6 


False j' True 4 aJU! ^.<> 0^' -7 

^Ull JMI 

Dim c , hours as integer -1 


Hour = 6 
If hour > 8 then 
C = hour * 10 
Else 

C = hour * 20 
End if 

. C jJ*J-aI] AjjL^-lIi 4_ajj&Jl ^uaj AjLiLuJ! £i\ a\\k"\W liLu Jju 

: j Lililll ^idlai, ” Ip ^aja -V 

. 9 <i u^j** Msgbox ( "3" & "X" & "3" ) >*VI -1 

. 5 if* tel*l\ qa £jjaAJ <^1 x For X = 1 To 5 ^ -2 

j) 4_Lu^i_k 4_aj2 (jlc- f .LL False jl True 4 ajU (jj% *La*ajoJl J qa 4o£LaVl f LkaVl -4 

. J*-' LAa j' 

.29 u* (3+3 A 2)*3 AjjLu*aJ! 4 ju^I ^ £1U -5 
. Bytes 6 J*A* <-*l«a^3*-»l ^ Integer <> <j^' -6 

«JUI JI^JI 

jljSiil 4iAa LaAaluM ^Ui! JjShll AjUS J&! Sum , N jjilai! ip ^ 4J! <jiajL J 
. 10 : 1 <> Jl-iC’V! ujluaaJ f jL La jj&j Do While 

mm (jijj mj igaluUI ljJLlJI i lir-ill - jjjijn^ill (jj )5jl5 

















For N = 1 To 10 Step2 

Sum = sum + N 

Next 

Labell. Text = Sum 

dAA Juiu (AA flc-jlul jvuj) Code CiLuIilUIj jaIjVI Q* ava jA -1 

. (JjlajWiHj ja)jV) 

. £LaUjJ) ^hVu*il A1& 4 ,ajU*i jjC £uLu jjl\ (j-4 £jj ^ -2 

JJXJJ Vj lguC> fU jI A-ajS IgJ (j/a^Vij Ram SjStLb SJj-vva ^La! Sjbc ^A -3 

. Cibajlftlll Liu jxlu flu) 

g-ljJI JM> 

: dft iMI ^iaII djl i»H^lpl ( X ) jojkj jj> )MlH jj] i»H^1q 1 ( V ) jpjk 

( ) . qa Juaull) Ala^ ^jJai ^jLuuaJ) ^jLuuJl l£j .luaL ( = ) (j/Tu/rv*^) A-a^C -1 

( ). True Jaj^l £ib Oj£j Else <jL| aaL if Alaa. ^ -2 

( ) . £jim ^jJULv) <> jjSI aJU ^ Select Case 41 a*. fAiLu -3 

( ) . ^ UJ^ Auj 3 ^£> Jlujj LajIj IgJ ^j 2 (j^u^aVi <jLaj V J(jaJ) -4 

( ) . 4ujjj£J) jajLuij ^UVUab Xaxla ^)jJC- d jiu jA ^jjj^V) <^Aju]| -5 

( ). CjI^I <> Sa^Ij Sja Prodecure 6^ 6^ -6 

( ) . j^^uali) <ju Juaill & A-a^ilt ^±kluu -7 

( ) . Jjauj j £aL) CjljUfr (j) AuLuaJ) diUlaxl) Liu AC-Ijij _8 


2015 jL* - SjjaL! AlaaLxA -30 

J$2I JMl 

: ri\fyi j i»ll iiy\ i-frll ( X ) dpllf ^ ii> imiII d jl i-frll ^olpl ( V ) iiolU 

( ) . Dim oLoa. pLiiwlj ljIjj±IcJ! (jr (j{J^{JI jaL -1 

( ) False U 9 ^j A>= B .bjwJJ gili (jlflA=50 , B =60 aoifi Qjl£ IaI -2 

( ) . dcuaj a$xj Function oil^il LdI ooioj A 92 J (| Sub rlj^tfl -3 

( ) . i->pp dAJAtaJ! aIa£||I imJAll joAAluiJ Integer, Long , Double glgjl lm» LJljitioH -4 

( ) Laiuio jIj^tII ljIjd aac QJ 3 JJZ.O tfjo jjaLlwj For Next jx»||l -5 

^LJI JMI 

imn (jijj ami tgaluUI ljJLlJI i lir-ill - jjjijn^ill (jj )5jl5 







-i^iLlo Jo^j 

.ljIqI^i Select.. Case dloa. -1 

. (j=> 9 l=ull (JJJ JziJjjj p\"vTmT. &i>(|r -2 

. jiSI gl 4ta aiiu.gc» diil^r JLiUu j ojLlc .-3 

.JajjitJI loiU=> ^g£» jlj^J ga Do While .. Loop dio^. pLiiiuI 0 -o lPjjlJI -4 

. dilbJI Form ^igoill oioli (j£ jiii .-5 

*Jldl JI^JI 

: Ifilll Lj1hi%I 1 Jl flp-feJl liixi frlili 444, — 1 

( 5 + 3 ) * 2 -i 
5 + 3*2 

jJbll i^ll x ' 4 { ” AiLi )+”() 444 —2 

Dim A , B , C As Integer 
C = 8 

For A = 1 To 8 Step3 A = , B= , C= 

B = B + A 
Next 

If A >= C Then 
C = C + 1 
End If 

&ljJI JMI 

j Li lok LiJ f Code iju jj^jo Jk dpjj iia 

X= 2 , Y = 3 , Z = 4 , M = 5 , N = 6 cAjj&A ^1 

If X < N Then 

Y = Y + M 
Z = N + X 
M = Z + N 

Else 

Y = M - Z 
Z = N - X 
M = X + Y 

End If 


d-!£ia ^oli JLjJil Code 4^11 LkiJI 444, 



UadJt £ jj 

1 



l^aluUI ljJLlII i hnil - jjjijn^ill )5jl5 













| | Din X A Single 

2015 jj'- 4 - 3, ft« i K 4 -31 

J$2I JMl 

: ii> |M 1 j-jLll iiy] i-frll ^Ipl ( X ) dpllf ^ da, ;mi11 <&y\ i-frll ^plpl ( V ) dpllr. 

( ) . 9 su /ilLuj igg^iin lPjjlj Msgbox "3" & "X" & "3" jflUl -1 

( ) . |_pjioiLi /il^p jt ia\\iL ( X + Y = X ) -2 

( ) . f jq'ill jjJlolbl jo ji£l /iJb ^ Select .. Case /ilff? p^nini'i -3 

( ) . wiio juui aj\ic ( first name ) -4 

( ) . Single fgUI jo jjq'io p^ni.ni jg.ii 4 > tJLc isgn'i pjii jjjiuJ -5 

( ) . Ldixiio jlj£!iJI Ciljo sifljao /iJb ^ p^ni.in For- Next jo-UI -6 

5 + 3 A 2/(9/3) ; <LuVt 4 jUh.11 IJlu guU -u 

^LJI JMI 

<)jj loo 

( Sub cipUi - Long - Do While .. Loop - VcCrLf - - ) 


. .AJJi-j iH ■ ■ i cLxuiJ .jojJI -1 

. /iouiu ^gsj Function *JbJi UjI AQJLsh ^gsj U . -2 

. jlj^'ill Ciljo hh\sm p^L /ilb Lrfl /i \;cip . ^iLozi -3 

. /iiLOipJI ^IacJLII jjjiuJ p *'~>i ■ ■ i | . £gUI jo jjiuaJI -4 


(j* (I) jjSj UHc For .. Next 41*^ 4^' 

End = 5 Start = 25 Step -5 


^JUI JI^JI 

xJLill i4^Jl .fli Uaijl 4AA 


Iku 

Jjsll 



Dim X As Integer 

1 


X = (4*2) / (6-12/2) 



Const X As Single 

2 


AlLujVl L-l^l JjSj) jjSl -C-J 

Dim Age as Decimal 
If Age >=16 Then 
Msgbox ( "you can get an id card" ) 

Else 


l^aluUI ljJIUI nil-ill - jjgjLwHJI jji )5jl5 
























Msgbox ( "you can 1 t get an id card" ) 

End If 

/ULajJI jujjj l jfflh; igiJI Lg 14 iggLuJ Age jJaiioJI /igjii Ciil£ bl -1 

Msgbox ( "you can get an id card" ) - i 
Msgbox ( "you can 1 t get an id card" ) -lj 
/ULlijJI gjjg ^ ^iJ| Lo 18 iggLuj Age jjsjoJI ng ia CiiL£i bl -2 
Msgbox ( "you can get an id card" ) - i 
Msgbox ( "you can 1 t get an id card" ) -lj 


2015 - AjS>&) -32 

Jitfl JMI 

: d^ fMi jjaJI jjl i»H T olol ( X ) jgjkj ii> |Mill jjl i-frll^lpl ( V ) jftjU 

( ) JJLuiu fUj) <j^» fllaiVI <-flLuu£V Try / Catch Alaa. -X 

( ). Dim a^Ki ( ) ^Ua^ui! AjU£ Sjjj -2 

( ) . (jjJJC' £uU -SLajI Mod J-ak-aJ) ^Vu,m -3 

( ). AjjIjj JIaj For A«ai£ Lujj jljSail AjI^J Jlaj Next A-ai£ -4 

( jj,u)A« k !j^AiSub *L*V'-5 

^Ull 

-2 Procedure -1 

: j>S jl) i»'iflll Lilixilll ,0 1^11 4 jLi Ipk jJllill i^ll fr/l i’i AiU ji»‘io J^i dftji JAa -V 

X = 0 , z = 0 , j = l , K = 1 , y = 2 

If X < Y Then 
Z = k+j 
X = x + 1 

Y = y - 1 
Else 

Z = k - y 
X = x + 2 

Y = y - 2 
End If 

x = , y = , z = 

4JUil 

jiil^ilil 0-H loo da-ia*all «i-ila,2d jJial 

imn (jijj ami tgaluUI ljJLlJI i lir-ill - jjgnn^ill (jj )5jl5 









. -1 

( Hard Disk - Rom - Ram ) 
2 A 2*(4 + 2)*3 + 14/2 **11311 AJ-iUxil ^ _2 

( 79 - 64 - 61 ) 

.jA For ... Next >»I ^ cM * 4 -3 

( End - Step - Counter ) 
: jsJuila (_u£j A < > 2 ^aj^t (jjjlv* He- AjjIjSj Alia. f-4 

( Do While ( a < > 2) - Do While ( a < 2) Or ( a >=2 ) - Do While ( a = 2 ) ) 

.Select.. Case -5 

( £jiuli Jl aWI (j^ ja£l - £jiuli (jail - £jiuli Axlj jLaaxl ) 

gdljJI JMI 

.£^ai! L>* JJ *^ 4 ( ‘-J-wlj / ) <-iiUail A.yi’ii (jajial -1 

H& J. 1 xj LajIj Wuma Aj^jIxa ja& f!jxVI £jti <j-a ^»afl JlaSlmV AluajS.^VUai-2 

. fl 

^illl ±$£a\\ «jo flj Viiit l 

Function Area (By Val Radius As Single) As Single 
Coinst x as single = 22/ 7 
Dim res As single 
Res = x * Radius A 2 
Return res 
End Function 

AJlAlla (j^l^Jl (jlaail ^ja -3 Axx! jll A-aalil -2 f 1 jxVl -1 

2015 - Aafcaa jjj -33 

J$*l 

: j^aag j-ixll jjl |»H t q1q 1 ( X ) jgjkj ii> imiII jjl i-frll^lpl ( V ) jftjlfi 

( ) . LjJjIiUI ^Lc dala CiLiLu (jl jaiiii U lygjlHJUl ^axill yji >Smdi ^naJ |^5J -1 

(( ) . Logic Error ^oLld ILa jaJalu ( 5 I uliua daui 1,0 LtaoJI -2 

( ) . |Uj gl Lojaj jisinJI piul iau (jl gaaLijaJI (^n Cil jiainJI Bibiiu aclja ul -3 

lft ; 111 " Logjau jjlc LjljaaJI yjj aaaJ aaao Code agS jIjSjlI Do While .. Loop diu paaluii -4 

( ) • U±“ tj" b 1 * -I" 

( ) .duLoiagu Function dJIaJI ^g| USub JpUI-5 

( ). 16 ga 5 + 3 A 2 ajjLuuJI jjjjj jjij _() 

(>LJI JI^JI 

imn (jij-ii mj (gala-dJI ljJLlJI i lir-ill - jjjijn^ill (jj |gji5 












( 4 >P d-uuii-t Ip ( 1 ) 440*11 4)0 >Ja1 ~ ' 


( L 1 ) 


(1)4 

Is numeric 

Try / Catch 
Select Case 

Me 

Instant Message 


yuxJI yb ^aiuiuj ylll £uigjl5JUI l-iilmgJI yaaj -1 
. yigjxSJUl 

. ftjJLdl Form gagalJI ftaalj ya jjluuJJ puluu -2 

I [jj| gjgjg jJjujyoJ| [yjj| jyJljjjJ —3 

- 

• ijjJlxual |jp j!5| p^SlIAlJ —4 


jJllill i^ll t ; l< 5 “ iA 1 F jjAjpll A tt,1 4 to -L H 

Dim r , sum as integer 
For r = 5 To 10 
Sum = sum + r 
Next 

Msgbox (r) 

(Over flow - 10 - 5 - 11 ) 

—lldl JJ^JJ 

t LLi .1 Lc&_i lo /yjyi'i 4 iu d-JLill JoaJI <Lib^ <itl 

1- If 45 > 65 Msgbox ( " ^”)Else Msgbox ( " 

2- Const X as Integer X = 10 

3- Const Birthdate as Date = 30 / 06 / 2013 


2015 - AjLc-Lu-VI -34 

J$ai JMl 

: «i\iyi j i»ll iiy\ i-frll ( X ) dpllf ^ «i% iMnJl J jl i-frll ^plpl ( V ) dollr. 

( ) . jIloj gl ujaj iajj yl uljialnJI ft.in.mj ul|i ya -1 

( ) Integer uliLdl £gj piiTmi j|u5 yJLc ^glai flinfij uliLu JlaaU -2 

( ) . End If ygaj ulg jJbui yLc If dliu &jll5 |j£uu -3 

[ ]. Culgill yf yLLcDI yb Const jj>I paaluu -4 
^ ^ jy£j J±5l jlllal ftJls yb Select .. Case ^p231lllJ —5 

( ) . Im-iliiiuil yJELcu jju ftol5 alacl yjgjlEUUI yajuJI ya BjLuJI ubLuijI ya -6 

^Ull JMI 

-imn (jijj mj tgaluUI ljJLlJI i lir-ill - jjgnn^ill ^ | 5 jl 5 













: jJIjJI i^ll n j 


Dim N , X , Y as Integer 
X = 2, Y = 0 
For N = 2 To 6 Step 2 
Y = X + Y 
X = X * N 
Next N 

If X > Y then msgbox (X) 


-JUI jmi 

jal^lll 4 frfrj loo d-ilailll 

,.giD (3 + 2 — 3)*2 A 2 ft »;l iii -«ll ft 11 noil aiaiJ gjLi -1 

[10 8 -6 ] 
, gjs Dim X as Byte = 300 ^Ull agSJI jU... ^ LlaAJI -2 


[ Logic [j&lnin - syntax yLL dI - Runtime Jiuiiill *lul Lna ] 

# gjjLflJlJI Qg.ggg[j gjgj _3 

[ F7 - F5 - F4 ] 

. jPTiimi Qjuu iajjii (jJLc t l±j a}5 jljialJ -4 

[ Sub JjaUI - Function aJlaJI - Do While .. Loop - 1 

. jjSId J5iiu |)EJg &iigjl5JUI CilfijlianJI JLHiiil yji ^Siii |yn.-5 


[ lygjlSJUl LbiaJI gl i lhlJI - 


3 Jiin.il I - aiigjlSJUl ft ft-ill nil ] 


( L! ) J 


( i ) A ja*1\ 

# 1-^ w w l^|£ QlicUl jig |jjgJ p|g — 

BJA|)D jiSI ^JzbjJI ya Qiu a^5 jIjjSj ak puluu - 
• £J)UjjJI UAIJ £ Qj| g| Lmjuc yLLcUl ,Lul IjJ pig yafggj — 

^g pjgigjjf Q^|g g|g gg^g g|g pjgjgnj — 

jig Jjalll gjlg ijg p|g yiigJml pi^imi — 

[giUig Qg^lgg 


Sub JpUI-1 
Function aJlaJI -2 
Variables uIjiubJI -3 
Constant origin -4 


2015 JjU - e+ai AJaSU* -35 


Ji*l JMI 


l^alicLJI lULUI i n nil - jjjnn^ill ^ )5jl5 



















.(cui)ldJub um> jruw JJUhU................ 3>£ab3 a£&I(M dJI jj>iu (»jj A 

. lijLu ( =) jmuvr.Titt |«^Lu £jrb>b j* 2LU> j^SjU*.................... _2 

. JwbjU! JwUUkbU t>jAJ ........... 3 

4) yuflUli £>di j* juu&t S $A .......»»».*.. Ai£_4 

. fa m V.>4 4^ * Lb 12 m 4J6 uljil <y AJud a Jum ^ajl j^aHJ pJ&Luj ............... 3 

^Ul JI^JI 

»«1 » ft 11 ,^ ft 11 r 4 A „„1 l ft 11 ^1^11 

(Byte - Dim - Multi Line - Sub - Procedure - Date ) 
. jJom >t£al Jojxi£luJJ True 2Ul>^ j^aj Ujua.........HU^ iidLl 

............... >*V! f>Jju.uA Name |twb j* j^UVI |vb 2 

»i finirtitt J>b£i*>i lyy£aS 4mL&j \j£bmm LuJd jl^aUbt2UL>-.......£ Lxb3 

. 0 : 255 ja 2jujua J£b......... _4 

...*»»... £fbt j* jLu pJ&u<J dto^Lw £U)b jjj*U 3 

^JUI JI^JI 

: i J ^ : ^1| ^plpl ( X ) dplb^ d^j^iall J ^ ^plpl ( V ) -*6^' 11J 

( ) Boolean ^1.1 

( ). 120 20*6/(l + 9) ^L^I2 Uu^I^ujlLc3 

( ). Single - As - Byte uljyut gl 4 »ill^Uxbiit »j 2 luVI ul»l^tl 3 

( ). If.. Then .. Elself jjuj u j*» >t£al Ju& ^JlxLmj .4 


dj^ia ^o-i iJLill i^ll ^ iLiJl <C$-i : tub 


4jjj^a2 

UaiJl ^ 

JjSlt 



Const X As Single 


a^ijji jmi 

jjA.itj Jlii, ^jo 3 ^jJI 1 ()o i1i£il1 ^yd bjftM 1 ;.;*i>j £oLij-iD djlilil ." 1 jU a II «y<j" i&l 

: Msgbox alLuj 

For m = 1 To 3 
Next 

Dim m As Integer 
Msgbox (m) 

-imn (jijj mj tgaluUI ljJLlJI i lir-ill - jjgnn^ill ^ | 5 jl 5 
















2015 36 

Ji*l JM> 

: j-aifcJl jjl i^jl ^Ipl ( X ) dgjk j djL^j]^olpl ( V ) dplU 

( ) . False fj\ True cxa*StM >s-\i Double ^«jA>U1 

( ) . <<j4lak4 <iy> 39 V 9 csJb- Select.. Case p>&xmu -2 

y&xMijo cs^^su ds>y^ <iy> Code )\£& py&jMj Do While .. Loop cjJ& -3 

( ) . q£SLo b/ii CjiS- ftV)J 

( ) . Jais o>s^ o^Ja <•>$£* Procedure -4 

^LJI JMI 

: 1o Jo^l 

.c^cOl^J Dim _1 

.If.. Then .. Else u&-2 

.Ouol^o ^©15For cxaA£{ cjuy\,£*N <b&I^ ^>*S -3 

>i>V ^sam »l&j\ (*£ ^j&W>. o)^aJs\ cxoJ-SLM -4 

^JUI ji^ji 

: Sa^aH LUHI p4l 

.oJu^ cJ^ts- (iy» \©s >^9 cJ-aisJo^ c-Vias-^ cx^o cui\£^ Visual Basic . net cx&l -1 

( Try / Catch - Dim / As - Const / As ) 
70 ^ ^p\ Degree j&&\ <buaj£ <<h\£ \'S \.... Degree > = 70 c>/sJ\ -2 

( True - False - Nothing ) 

: ckj\jj\ Qy$~ >*£- -3 

( Dim pi As Single - Dim pi As Single=3.14 - Comst pi As Single=3.14 ) 
cjs-b gcy» }S\ c£ )^SMS \ijjJ <fj\£ la \$\ cdh- <^9.<^6^^ Mi -4 

. ciuL<ul\ 

( Sub - Function - Sum ) 

&ljJI JMI 

: <L jLaaJI JLIoaII 4 / 4 Hi ^Li^l^ll liij iLulil j^LuuJl ojj -1 

cs^l\ 

IjalicUl lid 111 1 1 h nil - jjjijn^ill j^n )5jl5 


OiaLxRM 

















^ ;WjJ^ (iy> cXaAMjal^ cs»^al^ - 

^VSS oJl cJs-ljJl cv - 

<J' cy> ^"9 S°^ - 

- 


Dim N As Single 

Dim S As Integer 

For n = 1 To 30 

S = s + n 

Next 

Labell. Text = S 



TextBox u-aai Jib 3 1 <> -3 

Private Sub Buttonl_Click (By Val sander As system Object, By Yal e as 
system , EventArgs ) Handles Buttonl.Click 
Dim m as integer 
For m = 1 To 3 

Me. TextBoxl. Text = Me . Textboxl. Text & m 
Next m 
End Sub 

<LuVl AijjkiLi jkuJ! 4 jU£ AiLa. dj.Wu* IjLa 

Me . Textboxl. Text = m 


^||21 jo -4 

Function calc (By Val fm as single , By Val sm as single ) as single 
Dim res as single 
Res = fm * sm 
Return res 
End Function 

- 3 •Vv'fl 'j® ^9 - 2 - 1 

2015 jjU - f4&U* -37 

Ji*l JM> 

; ^ ^ J .oil ,olo1 ( x ) 4 ^ jtljjJl ^lol ( V ) jfeia 

( ). False jl True d±-L Boolean 

-imn (jijj mj tgaluUI ljJLlJI i lir-ill - jjjijn^ill ^ |5jl5 










( ). ojX Procedures «Sa£L3 2 

( ) .Variables ol^Dim pj£cL*33 

( ) .False 300 < > 100 <^>-111 jru*UI g3lj_4 

( ) . (jia>j2 Do While uvaIqbII qa > icJt _5 

^ui jmi 

jal^jjjll loo ji> iMill Lj^jll -t—La,! 

. ljIjLmJ) j jj xJ ^ ♦.♦♦♦♦.♦. ^ oljrUulXI .1 

(String - Integer - Date ) 
. £a\j ^1!............. *UjI Run Time Error £ji<>*tla>.¥l_2 

( - (Jt-hiuJaJ _ i/u(l*^S) 

......... jJb If.. Then .. Else l^JU^ f I JbtU £a £>iaUI aJlc3 

(3-2.1) 

: jAnj VB.NET JbJLtu Juuj^trij ^Jdi ItoVtl .4 

(Syntax Error - Logic Error - Runtime Error ) 
jaY = 12 -2 + 4/2 

( 9 - 7 - 12 ) 

*JUI JI^JI 

JIll^Ill faLl jLill ^jlpl^lll loilVilHQ Ifcllll jljLull <Jo^l 

(Procedure . Me .Loop . Rem .Variables 


» uOjU^ai,! ^JLc JlsLaJ ^ jLibMMJ ............. .1 

.Cabell Form3 j&lj <>c ............2 

i£L*£fl J\iu3 <j| Q^skAJ RAM Sj^alJkJ Oj^bSca .................. _3 

. JJuCJI ^UjI 

. U Cm ^ i/vaj^ps* ja ..................4 


g-ljJI jmi 

: 4-aIilll JpaJI .Jp^-I ^Lilll d^ot-Jl ~ ' 

Const pi As Single = 22/7 

. . (jLm11caaJb- 3 uLjll -2 ................... Co till (t^t .1 

: jJM 44 ^ 11 jj Aifc Label 1 4)1? jkl ji j^alj ,^^1 ap-ijll -y 

Dim N As Integer 
Dim S As Integer 
For N = 1 To 4 
S = S + N 
Next 

mm (jijj mj tgaluUI ljJLlJI i lir-ill - jjjijn^ill (jj )5jl5 











Me.Labell. Text = S 


(10 - 8 - 6 -2 ) 


2015 jP* - -38 

Ji*l jmi 

: J,*^0 3 ;^U jolpl ( X ) -*0^^ 3 d^LiJI ^qIqI ( V ) 

( ) . uIja 3 gjD For A = 5 To 9 step3 rilnnll Lr fl jIj£ljJI LJlp> aac -1 

( ) . j-i.ir>ni jiJba jl flahiiinl jgsu U Sub fljaUI -2 

gj Function Asd ( By Val A As Single ) As Integer cujUI cUull -3 

( ). Single gd duljJI cuunJI 

( ) . uJbjJUJ jjjloj jjJLc rlu Do While .. Loop dJjlj£jJI cLdJLaJI Qj> ggpJI Q^aj -4 

( cLugji£JUI riri-i'lnll ) ^JpL^JUl jaajJI JI£j£jI jj> -5 

^ui jmi 


LaJ iuuii jainaj |p aiU dj£laj bjgaoo |>£Lnl (p dUc . -1 

. hfin LDjlc QLLcUI aLu! 

. J Lr Juuu> J^Jiu jjL^I gl jaajdu (p ubgla) jjuul! . -2 

. combo Box dlaUI Jala aaaall jjaioJI aaaj. cuolaJI -3 


. *"!*».■ gl ( ( ) djalLnj lajj agiill dull is a ullaaLLnJI jJajuj -4 

«JUI JI^JI 

. ugfu 4*2 + (9-5)/2 iinliii-ill cLdAnJI gJli -1 

( 18 - 10 - 8 ) 
LJ lc hn'inn £jajJI jg£j laaic jjL£I J^ii'fii cULsza Select.. Case rtJLna -2 

. ibid 

( Qjjjfljj) |p jj£I - ujjjjxjLd - aalg jjjzjLp ) 

. rtjxjjjuu jja djgraj Code ag£JI cuLifi ale lijaaJ rUaal -3 

( JioMJI ale xllaal - cuaJaiia xllaal - djgalg cuiULnl xllaal ) 

. ujD Iiii iii n jIj^jJI ulp aac clojjld aJLc djjlj^j ririln Jmal -4 

( Do While .. Loop - For .. Next - Timer ) 

friljJI JMI 


IjalicUl Lid 111 1 1 n nil - jjgijn^ill (p )5jl5 

















jLWjCode ■Vi , i in Labell iibiil tJum jili ^ui ip— i 

1) Dim A As Integer 
A = A + 12 

A = A /3 
Labell. Text = A 

2) Dim A, B As Integer 
If A = 0 Then 

B = A + 5 
End If 

Labell. Text = B 

: jJLill i^ll 1^1*1 i‘i iiU C j-ffr'ioll^ B ji-fr’ipll J^l dpH iAA "Sr 1 
Dim A , B , C As Integer 
C = 10 

For A = 1 To 10 Step5 
B = B + A 
Next 

If A > = C Then 
C = C + 2 
End If 
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J$ai JMI 

: ( X ) dplLc^ jolol ( V ) dplU ftxa 

( ) . oJUl Form g jfpjJI *i#b /imu ft j$w£ oj£ ( Me ) -1 

( ) . Const ^0^11 pjMwi —2 

( ) . Double g)JI Mttiall wJJ mII ulilu) 1 glyl ()0 -3 

( ) . UuM ^.ttoai igS f ^ *Ui1 uwHI IfiflAiC oialubl slla>^M -4 

( ) . && jJl£> Else juuui'pjb If .. Then .. Else ol£t> -5 

^ui jmi 


: ( Qo «MmLLj Ip ( I ) ^4Q*J1 ^ Jm 


( V ) 


( i) 

For. .Next 
Byte 


( 5 mod 2 ) jutiui gib -1 


^lj n -i n-il ^aluUI ljJLlJI i hnil - jjjijn^ill (jj |5ji5 
















1 

Boolean 

2 


iyo y2) False yi True otull i>ii yjJI dAyull ulilull -2 

. tlP* 

Uu«mp ulp jAfi> dtps dJl> J pAidtitf -3 

255 J1 /uo %yo caaao wjAfr ptf A>b tf jJI tf AAsdl (jlull —4 


4JUil jmi 

( (20/2)-3 A 2*2) = 

jmi 

iJLJI^loo 

Dim Z, Y , C As Integer 
For C = 5 To 6 
Z = Z*C 
Y = Y * C 
Next 

.cuiUH (^*1) /^aJI juiftij Jifrj t.4p> ^l^all juuui Aic> Z /tiill &ttf 

.wilill t,ol) juJuj' Jl&£> 9 t.^1 juuui Aifi> Y ^uull &ttf 

. w^1 eilll sldiil Am C /aill aoii 
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J$2I 

: ja^qa jjaII jj] : *1| ^plpl ( X ) jgjk 4 j^LiJI ^plpl (V ) jgjlt 

( ) .Variables uljjLainJI|>c(jUfUJDim puiuu-1 

( ) . SaiaeJI alaaLJI (jjjall ^ulwl Integer & Long £lgj| |)d uljiilall -2 

( ). J=m£ aulg ajnJ ygSj Procedure JjaliLlaaIuil-3 

[ ]. yjgjiSJUl ijaslll yd fl.niT.Liii.nil aiigji5JUI iaUiugJI pal ya 3Jiffl.il I g yiijalll -4 
( ) .fljjLdnJI ullnlu ui ga & JdL&bJI -5 

( ) . £ jiuLU yJIaial ya j±5l a gag flJta yd Select .. Case piilini -6 

^LJI JMI 

: 3* d-ilailll pa,l 

^lj n -i n -.1 ^aluLJI ljJLlJI i n nil - jjjijn'rll (jj |5jl5 



















gjD 2 * ( 7 +2 ) * 2 fliilm-iJI flilnmJI Mil gJli -1 
[ 5 14 - 16 ] 

. !";■■■" jljSill uIjd aac Uju ale.jljJauJI &lu ^aaiuu -2 

[ For .. Next - If.. End If - Do While .. Loop 1 

. M For m = 10 to 1 Step -2 ^ j'-3 

^ A-ojS jl ‘LajS x «al - A-aJS (_j-a ^£1 ) 

.gxiUjjJI ti nil <Lul uaal ^1 *U=LaUI inLiiiSU -4 

[Try/Catch - Dim/As - Const /As 1 
. 255 ^Jl JOB yja jUxoJI eu yjaj.£giJI yjj jjuuluJI -5 

[Short - Byte - Boolean 1 

^JUI JM 


: jJhill * 4 < ‘ 4 i ’ i AiU ^o ; 4 41a, 


Dim N , K , C as integer 

C = 10 

For N = 1 To 10 Step5 

K = K + N 

Next 

If N >= C Then 

C = C + 1 

End If 

CjIjJuaJ! 

N , K , C 

*LajlS) 




c 


K 


N 


IJMI 

<□111 Code 44^11 iLaJj-1 


1 l-rill £gj 

a^EJI 


Dim X as Sengle 


Const y as byte 


‘“‘Ij.iTnll a.wM. ? ^gj jii |jn yitil j^ al -LJ 

-2 . -1 
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J$ai JMI 

: da, |Mi j-*£l1 jj] yfrll^lpl ( X ) jgjkj ii> prill jjl i-frll^lpl ( V ) jftjU 

^lj n -in-il ^aluLJI uJLlJI i nnil - jjjijn^ill (jj )5jl5 






























( ) . (jr^ Do While id)l £\ Hladt /h* 7 [ 3 ,> i*ll (j^axO -1 

( ) jj Select .. Case i/JL»»- ^-2 

( ). laZ* Sjo-Ij 3ji dj^~ : Procedures dtcl>^l jdJ 3 

( ) . ^Laaa^n J^aljUt £&\ja Jla 4-ujjjill JkjLuuj ^jjjj5LWI <^4ju]| _4 

( ). ^jj» (Ja j| l*ic *L3t Variables oIj^luJU 0 ^^3\ q^-*+± -5 

( ) . Text Box Ul. dl^VI <>. JuJuJI o^U-ju. JLliJ ^Lj -6 

^ui jmi 

jul^lll 4>7f-i loo «i\iM'ill d-ilailll >ja! 

: Next L For .. Next JJL^^.1 

( (3^>u U Jwa-jS SiLipl uvJ)LSj» _ SaLjpl ui.4.*dJ cX2Jlaw.ll J^Ad* uwad& SiLjj ) 

: (J -* ti t Ju \ A = 2 (^LaOi JiJLc idJL>- -2 

( Do While ( a = 2 ) - Do While (a<2) or ( a>=2) - Do While (a < > 2 ) ) 


(Single - Short - Integer ) 
£cjij(3l^=a IaI 5j-i(Lu» Else “ -»1 ^ j ^ If •• Then .. Else ^b_4 

.........^jLuIf ^JLj (j JJI -L^JUI 

(True - False - Null ) 

( dll jjxlall - dll jilll - (Jl j^ll ) 

-ft oi«d*lj VB.Net Constants cJjill cl*3 ^c. o%^l\ ^_6 

( Dim - Const - End Sub ) 

4JUil JMI 

( U*44 U1*4 i ^Lij] jx ) d_uuLio ; d-JLill Jo^JI Jo^al 

.............^jbuobdill 2+(7-2)*3 A 2/3 u\_jjVI l^-^LuoJI i*_JL*j»JI iU< iaJt>-.1 

.£9-«JI j-° (^1 / ) £$dJf _2 

. Jr^i II 1^1 < • f^JLu jnl-2j-b j_0 <LLq- > j_C OjL-C. .3 

j^iLd cy^ 1 uj^=3d L*Jl1c . . C?vJU^ p J3 iL *u A 

. tf.UeaA-'ifl ' »' ■* "dW .................. ^Joedd 3 

gdljJI JMI 

: () ^ 90^11 0« lo (t ) 4^0^11 0« 


(d) 43 ^*]) 


(1)4^4^! 

1 ^ , ,,, a jlj Gl^. ^Jlc.caJU>^J iaeduU 


# #^^.1 

linn (jjjji ml ^alajLJI uJLlJI 1 linll - jjjijn^ill (jj )5jl5 




















dijj SLi^a L»ijl lit t* JJU- ^ fJ lSbI^J 


< = 3-*jJI_2 

i/v-JUdl £>^*31 5 Jdlj <j ^ 


ME 3 

^j^aj lajI" ljd)| lit l»uvJIa-4^3iflfcl.<<3 


For.. Next >.VI 4 
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J^l JMI 

: d^ iMi t-iidl jjl i»H^lpl ( X ) jpikj djl i»H^lpl ( V ) jpjk 

( ) . 4 _Cgig jHUtUU ^-ujI I ^ > q JJb J s-Ij tltljjuLUl j-C. d-Lq-> -1 

( ) ljI&^JI (ju tfXXioJI oit-VMiil ojlalwa rlcuul plxiitul 9 a (jugji£J{jI -2 

( ) . j.kaxug JLi^ljl ^.Li&o j.aj doltilj p^iiwj i^bja QjLj gs> Vbcrlf -3 

( ) . dijU Le&J(J lmi£ (j{j£fjl jab U J T 0-!" Att 6j£>lij ojg^o u-£»Lol Qjlglll -4 

( ) . End Function -i Function -i 1-^ 4-SlJ 6^ O^^t -5 

^ui jmi 

{ H ^ 1^0 ^ 4 tt ,<4 ^ !i^ cl )S|1 ^1 L)l ^Li alii J ^ 

iiiiiiLio 

1- Do While Cconditional expression code . 

2- . Catch es as Exception End try 

3- Sub Name (Parameters ) Code . 

4- For Variable = Start To End Code . 

5- If Conditional expression Then. End If 

4JUil JMI 

tfujjl U-0 .^qf-iaoll L_ii£>l -I 

.(pjgjj&JIjl jjmwiJI -1 

.-2 

; AjjVI AjjLuiaJ) CjLioxJ) £uU l_u£) -l_i 

( 4 + 3 ) * 3 -1 

4 + 3*3 -2 

frdjJI JMI 


=<- 

) ^0 a Malli lo (1) a$©*11 jo >ai 

( lj ) ^goill 



J—»it— >\7l[ i ^ajis, ^jsja px-vTmT 


Select.. Case -1 

ananyjj anal 


IjalicUl lid mi i lir-ill - jjgxmHJI )5jl5 



























JJg j-Ht-iSUI 6lo>l (j«u jjl uaj^JI ^ua jnSmii 


Variables LjljjYioll -2 

doifi tf I Lnd 

Logic qjLtttaicJJ £ U=ii,KI -3 

£jaiJI (jg£y b>ai£ ji£l JSjilj qJLza olcP 

Error 

. ^.Ig jjiio Q«as i5^Lc l\%Wr» 


Function JJgdJ -4 

. ^oUj-lJl jr>lx-yTill 1 ii£ OQllll) gjtjj (jJJ ^gjf 
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J$2I JMl 

: j-jAJI djljAll ^lol ( X ) do Ik 9 iyiAiill djLfdl ^lol (V ) iolU ftia 

( ) . 255 ull 0 jo /i-inin dad nia jpj Byte £gill jo jJ&ioll -1 

iyn YoilSSef bk isgibj igall Name jj£ioll jc jikUl /iUp -2 
( ) Dim Name As "Youssef" 

ihlijll /ifljii j |a For .. Next jIj£ijJI /iUp iJi /uLnill /ioifl jo I /Ljl^ull /ioJfl Ciil£ lal -3 

( ) . i.ill■■ill; jg£i 

( ). False gi True /ioioii aaU Double £giii jo j-iaiioii -4 

^)44»4J jl 4 u^al ->■ j 4 ^ Taj Cf' * • ‘ “5 

/uoifl jjsli 2ij£ldl jl£o pa yjjy /ii / 104 a ipjuoajg Constant CuIj j£ jikUl -6 

( ) . 2 oUj}JI iunii cLul 

( ) . aalg aoLijj |Ji Ciljo a at jolgUI jo /kgaao jlj^i i.ih'il Sub dpUl paaluu -7 

( ) . ijjgjiftJJJI is^sjJI jgiD aal CiijjjJJI jic jjpULi jjaiilUI julsu -8 

( ). JjUL-JI j q »<o I a t \ »<o t j ^ ^ uJLbJf Djq w*> - 9 

asi Hj.iill Jla lullb CiLojJjuII jo /kgaao Do While .. Loop -10 

( ) . UlgiD Do 

^ui jmi 

jul^lil loo ^UiiaJI d-ik^l 

.CiijliUI jit jjpUl \Jl uigji£Jill igaaUI i*a Lnolaalml j£oj ^111 JlLugll -1 

( Jjjji lo - /UgaoJI - /uakoll ~ iJigji^dUl ajjiJI ) 
. i,m N=2+3*(9/3)^2 /ilaLaoll \;«i'i asj N jjsjoII /ioifl -2 


( 18 - 83 - 45 29 ) 

. adg jjslio /ioiii i^k l^oiao £pUI jg£j loak . nijp paaluii -3 

( Select.. Case - If ..Then - If .. Then .. Else ) 


../tcgi jg£j /uujaoll L_iilb aastl StudentName pmli jjsjo jt jikUl -4 

( Boolean - String - Char - Integer ) 

lyjamui ^galuUI ljJLlJI i ni-ill - jjjijn^ill ^ |5jl5 















Visual Basic .Net /ill /uhjjiill Joall igaal jiliali -5 
( juu in J 6 - Select Case - X = A + B - Dim a As Integer ) 

. §m /d 1 m i ■■ilipll jj&ioll £gi jg£j uilLbll /bp J Mark jj&ioll juiil J£ jikUl -6 

(0UU Id - Single - String - Boolean ) 
£giii jo Dim Job As Sring ^g£ii jo 3111111 Lbdii -7 
( ^uu lo - Run Time Error - Logical Error - Syntax Error ) 

1 ljIjJVI jU-ujI <aa2 -3 

( 4x.^lLa - A '*■ }'*■ 1.^1 JJC. AaaSj - 4_ia3j j 

j£0jg ii^ilg Ijo Class t fl jiinill Jib ProdeCUre dpill jc jiklll pjj -9 

.xjlr Vi..i l 

( Jjjxi loo CbJii il - Cijoll jo fil - jtijfl - l^alg a \o ) 
jiso bpli Ijlc dii jilloibl aal Visual Basic .Net /ill Lnpgj Jd\ nlonll -10 

.u* 

( juu lo - Do .. Loop - For .. Next - If .. Then ) 

—1UI JI^JI 

Jl^ui l^ftiall 4 - 1 4,121 jLui,1 ^Li loo 

-1 

Dim N As Integer = 7 
Dim F As Integer = 9 
Msgbox (N & "x" & F & "=" & N * F ) 

( N x F = 63 - 7*9 = 63 -7*9 = N*F ) 

-2 

Dim N , K, C As Integer 
C = 5 , K = 0 
For N = 1 To 6 Step3 
K = K + N 
Next 

If N > C Then 
C = C + 1 
End IF 

C= , N= , K = .jljA'ioll^ jli dLlaJI .li Ip-iliftJil I \ i‘i AiU 

-3 

Function Calc ( N As Single , K As Single ) As Double 

mm (jijj mj tgaluUI ljJLlJI i lir-ill - jjgnn^ill (jj )5jl5 








Return N * K 
End Function 

4_L» Function 

.AiUI £jj -2 .4ll.il! -1 
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J^l JMI 

—: JLjLi loo ^J^jl d )L±|1 jgjft] ( X ) j)1 ‘*H ^olpl ( V ) jfljU 

( ) . If.. Then .. Else 4La. <U1 aaII cj|jbli! ^ -\ 

( ) , ^3j jl Jj2k j jjilalt ^ui( Ijjj <j! ijJI lIajI jllI j\ ljIjjxIaI! 4-lauu Jfrtja _2 

( ) M = 2 4a£ U^e or M = 10 To 1 Step -2 4U> ^ j'j^' ti&jjj -3 

( ) . Uiljjal jLjo SjLjJI 4-ojS (J mj 1i$a For .. Next 4i*a. £-» Step ^ ^ -4 

^Ull jmi 

: jjL Up 4 j^l dA iyill d-ila^l ^ia,l 

( l*£te) - VbCrLf - For . Next - If.. Then .. Endlf - Me - MY - >1 - uLi^l) 

.Jjllaj Vj l^abVutil ^Jaluu V (Iij!jj11j CjljJxlaH -1 

. Form jt ^jaII! S iaU ^ jjju .4»aim -2 

. ^ It uua j!j£U! CilJJ& 4ijXA lie- 4 jj!jSj Alia. J^aal -3 

. iJaj£ jjj*j <y* .J-£^' 4!^ Select.. case 4 aK ^4u . n _4 

-JUI Jl^dl 

rr uii r iu^ r ii ,^1(l) 

. Jj£Jl $iaU ^a AjjjLal! j!j£V1 ^j£- JfrLuu CjUa^^l. aII AjU£ Jja t_u£j 4 _aI£ -X 

A A \\i li —2 

. 4. a.-, till JL ^axj ^Luta. J^»bu» jA -3 

. False dai jl True t#j 4ajU 4a^»jjl! 6* -4 

: ajUI a 4^11 iLaJl ftaja ( -a ) 

Din X as Single 

Const Birthdate as Date = 5/1/2011 

gJljll JMI 

4 & TextBoxl pill jjjjg ,pj jg tf ^o—i—i jft /|ld jlbll i^ll i i l i*i iAj (T) 

imn (jij-ii mj tgaluUI ljJLlJI i lir-ill - jjjijn^ill ^ |5jl5 


















Dim Y as Integer 

For Y = 2 To 10 Step2 

TextBoxl. Text = TextBoxl. Text & Y 

Next 

( 246810 - 2 - 2345678910 ) 

( 25 — 33 — 53 ) (7 + 4)*5-2 '* * ;Lmll u ^lili aaa, ( ) 

Labell /il^-Ldl dial .aiiatt ^j-i U /ipi dLJI 44^11 i n ajlj ( 
Dim Num as Integer = 9 
If M > = 10 Then 
Labell. Text = "one” 

Elself Num = 5 Then 
Labell. Text = "two" 

Else 

Labell. Text = "Three" 

End If 

2014 -45 

J$2I JMI 

: jjb Iqq jAJAg djl ^U^qIqI ( X | jjftjlg 4 d^jmll d^LiJIjolol ( V ) dplU 

( ) ^ ^ Data Type O^u & -1 

( ) Ajx .iluj jjc SJjill AjUS ju& Logic Errors AjSlaiall * UaiLV! -2 

( ) cA>^ <> ^ If... Then ... Else -3 

( ) . c5‘ 5 *^' JJ+a (> 3 -4 

( ) (> jj£i M Lu* Uiifr For M=10 to 1 Step -2 -5 

udUJl jmi 

- : Up ii> lyill a-ilailll >ja! 

jA 1 <ag k>>x j yJjLoiLuj (J-alxx -1 

( "" ‘ # ‘ & ) 
Code Window siaU _2 

( F5 - F7 F4 ) 

jA A -s i-\ . .^i jjjdl A-lxiij]! ellULnll (jLn]| -3 

( Decimal - Boolean - String ) 

Aili < _ 5 ia^jaill jm’ill ^5 < > (Jxlstdl ^l-lkiai! Jjc- -4 

( fj jUjjj ji jlujj V - jlujj ) 

^JLdl JI^JI 

imn (jijj nul tgalajUl ljJLlJI i lir-ill - jjjijn^ill ^ |5jl5 













( -J ) a^pidl jo d-H.iLi ; jo (1) d»p*J1 Qo J*3 (i) 

(V) 

(*) 

VbCrLf 

Const 

Try / Catch 

Rem 

AiaaJI si* JM* £ja J^u*a!( *lla*Sn A * It« * AjjlLa) -1 

jiuu *ljj| jj*jj <ji 0^**^ Sjj**a ££Laj ls^ -2 

Jji* jlaui f. Luuj ^ 4_aI£ (jb _3 

4la* sift ^hVuab bijljiiil (jC- jMc-V' -4 


jfrlllill Code 44^11 -Vi *! i'i iAi C , K jjjjAjftjl dp, 1*4 JAA — -J 


Dim N, K, C As Integer 
C = 10 

For N = 1 To 10 Step 5 

K = K + N 

Next 

IF N >= C Then 
C = C + 1 
End If 
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: jGlj loo '•** ,**«* d ^ ^Ipl ( X ) ^ d ^ ^Ipl ( V ) 

ASe c)J“^ t£\ 4-ahVu+il ^jj j*VI ^jlutbA jjiiaJl ££■ -1 

( ) AlL U 

( ) 4*^ Boolean 0* -2 

( ) False j' True 4 *jU A$* <> -3 

( ) . uA 4 ^' <> j^' 4j*j 4JL* ^ ( Select... Case ) ^ aLIuu -4 

( ) JjSJl S jfiU 4 jj*J jj 4 o&Ia| f Ua*l Jj*jj IDE ALu ^Uui V -5 

( ) SjL jil <Aifl ^jjSj For ... Next 41** £r* Step 41 j* f ^ 41* -6 


^lj n -in-il ^aluLJI ljJLlJI i nnil - jjjijn^ill ^ |5jl5 

















( -ily^ ioll ,e-i dJl ja»iLi ) 4LJLJI iilimlll dJbll l»Jl / -I 


If Z > Y Then 
R = 7 

Elself Z < > Y Then 

R = 15 

Else 

R = 12 

End If 


R jJuA y= 8 t Z = 5 LulS IJ] -1 

R jjiiAi! A^& y= 8 t Z = 8 LulS I jj -2 
R jjuA) Y= 15 t Z = 20 LulS )jj -3 


^ui jmi 

: lo Jq^I ~ 1 

j£-aU ijJLj (JjUa^tAltj iliUjWill 4iL<aY.4 «a1H! ^MVuaI 

4_a1£J| ^I.VVuaI ^jj LaLj . <a!H) ^.VVuai g-aU i jA) Lj|jjxUI qC- -2 

je- 0*^. 

. <j) Else cr^J Cr^' 4 aIu fJJ If 4-Ua. -3 

. l-iLsxJ) (j-A ^ JjlLa]! 4j<utvo a SjIjlIula fI aujI .—4 

-t ^Lilll 4 Uid a-Jhil! * 1^1 «- . 

( 2014 / 4 /15 ) 4-uii! o^jiai Date £^l <> B_Date 6^ 0*^1 -1 
C Name j^LLaU ,f j-^-a ,? a ajqII -2 

4 vj“\^ jpj A\j*\*si JlJcS JjSj ( A ) CP cJ^VI -3 

^JLdl JI^JI 

—: jjij^jjll 4 ^-lj j)ft j^ajl a^lajil >ja! / 1 

( 20-9-10-12 )..> 3 A 2 + (8-2*3)/2 4^luoJ! 4 a1a*II LiD £iU -\ 

) M UaS& For M = 5 To 10 Step 2 ^JUaJi! ^ jtjSlSl ufiji| -2 

( AjI^UI 4_aj2 jLaj ji ijfA j3Luz\ — 4_jlg_Ut 4 -aj£ qa jiu-al — 4 _aj 2 y-a jjSI 

( 4 - 3 - 6 - 5 )d& For X = 2 To 10 Step 3 4ia*Jt J j1j£U1 ^1>. j-jc- -3 
( Is Numeric - Dim - VBCRLF - Rem ).. ^VU a i * Li jY -4 

( L» - First Name - Short - 5A ) ... fl-iao*-! jjj*j -5 


Ijala-cUl lULlJI i nnil - jjgijn^ill j^n )5jl5 












La.^VLaa 8 l^\ 3 A-C-LJal For 4laa. La.^VLaa gLaUjail Ja£I / l_i 

JlJcSfl AcUla Msgbox 4-W 

jljSaJl Jau ( N ) jjilaJl 4_aa2 <_yA La j 
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J$2I jmi 

;L^111^1iLiid1,l>£1 

. 4_taijjJ| j( AjfljaJ) CjUUoil t ialuaj Ciaj £jAu V (JjULoJl LlL ^A . -1 

.jjjxj JjjLLaJt 0^ cJ^Vt -2 

. jlxuu f Luu) .jaJ) Llullll ^aLIuu _3 

. ^LaUjJl jjjjj Jj£> J^jj Jtj£i jjjju V . 4 aKll Jju <_u£j La -4 

. JA X = 12-(3 + 2)*2 4jjLuoJ! Uaxl! iaii g3j -5 

. ilijljail £)& ^.<Lal£ ^Vuai -6 

^ui jmi 

4 ) inii) < lll 4>-H loo <i% iMill d-ilaiHl ^lia,! 


: JjaLuJ) JjSJ! jaiD flg3 4 ju 

... i\j 4 nil Jju (] jJLLaJl 4_aa2 -) 

,.. ^A JaiHI) f l£jj) 4 xj X jjilaJl 4_aa2 -2 
^A jl jSjJ! f I^juI JUu N jJsLLa]) 4_aa2 -3 
.4«aIS ^hVuab ^jlL -4 

*JUII JI^JI 

: juL loo «i\iyi ti»ll d^Litlljolol (x ) jojkj jAaaajl djl i»H^lpl ( V ) jglU 

( ) . La 2 Jjlkj V) duljall jl ljI jjilaJl ^l.vVual fcJaluJ V -1 

( ) . j j) jjjjLi 4 jU£ UJjI La 13) 4 JIa ^ ft ft a^C -2 

( ) . False j' True "LUS Integer 6* j^*^' -3 

( ) . Byte <> 500 Cte -4 

( ) . Boolean Text ^ataJI -5 

" L.'J" ~* n ~*^ (53lajUI ljJLlJI 1 nnil - jjjijn^ill (jj )5jl5 


Dim N , K , C As Integer 
C = 10 

For A = 1 To 10 Step 6 

K = K + N 

Next 

If N > = C Then 
C = C + 2 
End If 

( 6 - 12-10 ) . 

( 1 - 21 8 ) . 

(10 - 13 - 6 ) . 

(Next - End If - Finish ) 





















( ) . End Catch Try / Catch 41 a*. -6 

gdljJI JMI 

1) Dim X , Y as Byte 
X = 8 

Y = 9 

IfX> YThen 
Z = X * Y 
End If 
Z = 50 

.dS Z i i-fr'iall dp i*l 

2) Dim X as String = "2" 

If X = "Two" Then 
X="10" 

Else 

X = "20" 

End If 

.vfl&X | i i» , ipll rfp H 


) DimX as Integer 3 

LI. Text = "The Number Are" 

For X = 1 To 3 

LI. Text = LI. Text & X 

Next 

.4ft LI dM flk^Uall 


2014 4g 

j$so j mi 

: jGlj loo dx***'* frjiLH d ^olpl ( X ) j |1 «»1] ( V ) dcllxL ftxa 

( ) . <> If.. Then .. Else -1 

. laSfl jIj&VI p &iuu Integer , Long , Double £Ijj! 0* -2 

( ) 

( ) . Text Box ch» Jjxdt j-® ^Vu^l l JLSlu«! -3 

( ) . jl jjildl ^uu) IXu <ji ^laUjoJI ^ (JjjljjJl jl (JjIjJuaJI Aaaaaj .icljij X^l -4 

( ) . J SjLjjII *uJa jl For .. Next Step ^ -5 

-inm (jijj ml tgaluUI lIILlJI i lir-ill - jjjijn^ill (jj )5jl5 














■* *)*« ^ iUaI| ^jia 11^1 

Din X As Single 

2*(7+2)-2 -?■ 4*5 + 3 -v 4*(3 + 5) -i 

wJUl JI^JI 

X > = 50 dJl^ til j^lj 4 g 1 ^ jLik J 1 A i Lli to Hail 4 j 14 ,flj jJbjl code ±*£a\\ Lli^ Atj 

. 50 .'l o Jdl X ^Joll rfoi ‘4 JiJl^ lil jiiiI | ^ iPli4 

If X > = 50 Then 
MsgNox ("e^U”) 

X = Me . TextBoxl. Text 
Else 

MsgNox ("SfU-lj”) 

Dim X As Single 
End If 

MfjJI JM> 

: l<t> imlli Iq-i d-LiHI Jpajl H4I 

. 4 X 0 , ^hVu^L d! jjxIaII & -1 

.I u*i<a jljSaJl dlj^ J2£> Aijaua AjC- ^AXluu 4 a1^ J*2 aflj -2 

4ie Ram jjjj±a£J! SjSId SJjaa-a ^£UI <j£ SjLc.-3 

. £c-aUijJl JJLuu flDI jj*jj <jl ,j£*4j V 4-ajlll dJAj <jLJl £jJ uua 4J 4_aj2 (jau^Xjjj 

; a-. .i~«H “ 1 . 1*111 .•« »•» “1 M hil i ^4 <Jhill , 1^1 : Lib 

.-2 £ jUil Jl JiUI <> u-^VI -1 

.-4 Xjj-J! Jl jLJ! (j* j uj<Xail -3 


2014 £j^JI AjaSLa.* -49 

J$ai JMI 

; jLjb loo ,1^1 am i i»ll j jl i»ll ^olpl (x ) doflr. 4 Aajl j iLtiJl ( V ) jftiU 

( ). Uialjjfll ji^a Sjbjil 4_4 jS oi J*J 1^ For .. Next Alaa. £A Step Aj^ ^ Al^ J -1 
( ) . ja For M = 3 To 1 Step -1 4iiaJ! a»j M ^uii -2 

() . 24>3 A 2*(2 + 2)*3 ^U-aJl <A**S\ &U -3 

( ) . AiaV Aia.>> J jl LfjC’ ftjjl Variables ^1 u^u^j! \ {JLai -4 

-imn (jijj am I tgaluUI ljJLlJI i lir-ill - jjjijn^ill ^ |5jl5 



















( ). <->l_>d' t> ^ cs' a>> Procedure *'j^-VI o!*j -5 

( ) jt ui.IJ2LJ JJfcUt ^Ull \lu <ji £C-aU jA\ duljjil jl CjIjJuaII Aj^ujjj JC-ljjj ^1 -6 

( ) . 9 ^ 4JV; cJj*^ o^j*^ Msgbox "3" & "X" & "3" -7 

, |L. lok ,<Jllill Code Ai^ll .i i ’l i*i iAj f , i»'ifl rio i ‘4 AAa ( «j ) 

X = 0 Z = 0 J = 1 K = 1 Y = 2 

If X > Y Then 
Z = K + J 
X = X + 1 

Y = Y - 1 
Else 

Z = Y-K 
X = X + 2 

Y = Y - 2 
End If 

z = x = y = 

iHUJI JMI 

-: .fllLill i>4^H ’ t ‘ <l " ! iiU R -*0 , * 4 lc —1 ( 1) 

Dim R , Sum As Integer 
For R = 5 To 10 Step -1 
Sum = Sum + R 
Next 

Msgbox (R) 

: dLill A4^11 ,pj Uaajl -14 ta —2 

Dim X As Sangle 

.fllllill Code i4^11 .'1 i l i‘i AiLl 1 I»*IQ ,1^ «ip H JAa —3 

Dim N , K , C As Integer 
C = 10 

For N = 1 To 10 Step 5 

K = K + N 

Next 

If N > = C Then 
C = C + 1 
End If 

C , K , N aorfii 

-inm (jij-ii mj tgaluUI ClILlJI i lir-ill - jjjijn^ill ^ |5jl5 







: d-Lliiil dliL^JI -i) 

Ja3> (jS fA*M jjc- UjUj d !jjjxj ^hVual H& AmLm jj& ^uHj ^Jt ^ Jjj .flla^Vl -1 

. (j/aurfnVi\) 

. False j' Ttue ^.6* -2 

. £jjj Jbujll ^Vu«1.A.a^C’ -3 

. 255 -J j aa-s 4j AJJ^aII ^1 .<> jJuAit -4 

.Ajftxoij £jl t oliijj ^jj V (jj*-* jjlajoaJI ^Uaj 4jU£ dc -5 

2014 AajjJaI) AiaaU^ -50 

J$ 2 I JMI 

: jGlj loo '•** .,**«* |,‘^0 2 ^ ^11 ^plcl ( X ) 4 ^ d ^ «*H ^>lcl ( V ) Jplk 


( 

) 

. J+S+^' SjSlJ yfl ^ J* -1 


( ) 

String Text A^aUJI _2 

( 

) 

Const L As integer -3 

( 

) 

Dim SUB As Single -4 

( 

) 

Dim U_B_D As Date -5 


( ) . Joj^ fL-j) f. iVu * i ( VBCRLF ) Sjj^aI! A*Kit _6 

^LJ! JM 

: jjIi lo Jo^l 

. U& dll jjxIa]) -1 

. Jk -2 

. Uaik j! ljI jAfl Ia! 4_sJU AJjSj 4j±a jJI JjS £>* f ja. ^ . -3 

. Start Debugging .^Liia ^ LxJa^b ^ jj£II 4jUS <> * L£uV! -4 

—1UI JI^JI 

: d -Liiil d-i-ilin*vll aI iIq»H ^ib 4S Ip 

( 8 + 7 ) * 3 
8 + 7*3 

g-ljJI JMI 

— ; djlilll / to > « 4 i" frliti ^lia,! 

Dim X As integer = 16 
If X Mod 3 = 0 Then 
Msgbox (’’True”) 

Else 

Msgbox("False") 

End If 

mm (jijj ml tgaluUI ljJLlJI i lir-ill - jjjijn^ill (jj )5jl5 




















( 16 - False - True ) 

Dim X , T As integer 
For X = 5 To 12 
T = T + X 
Next 

Msgbox (X) 

(5 - 12 - 13 ) 

2014 4laal a ^ -51 

J$aiJMI 

: d -Lil 11 Joajl lo ftaaa 

j! RAM A«ai£]! ^UVu*Aj Alaal) i±u Code Window SiaU ^a ^Uaa^iLait AjU£J -l 

. (') <jM\ 

. ( ) A-a^C j) ^a jj jjxlall ^uit Iajj (j) ^aUjaJ! ^a ljIjjxU) Ajaujj A&lja Aal -2 

. jiua luialjja! Ifll a ja Step ^ac. AJU ^ For .. Next 4laa. ^ -3 

. 1 a$ nj ujaj j) £UjLj AjU£ UAjI I j) AJla ^a ” ,f ^Aalmj -4 

. Const A-aKIt ^lAaa^b Variables bjljjilAlt -5 

. False jt True ^ Double <> -6 

^Ull JMI 

—: fulfill 4 >-h loo iiajaall d-ila,!!! > 1*41 

.Error Uai luoi Din X As Single -1 

(bu> - Run Time Aje - Syntax UjaJj 4^' - Logic Ukb) 

. Ayjv^l Aja aji) (JjUba^l (j^JaaJ ^Aaluu. ^a jjilaJl -2 

( Boolean - Char - Single - Long ) 

.Aju lilbj Ia) UaaJ) AaJbuaj <j-alaJ) Aj£J) £-uaj Try .. Catch Alaa. ^ -3 

( Try - End - Catch - End If ) 

.jA If.. Then ..Else Alaa ^ lAaJLml aILaaI! £jiii! cj)jbaal aac- _4 

( 5 - 4 - 2 - 1 ) 

.For .. Next 4laa f ^Vu a j <$a11 -5 

( Counter - Step - Increment - Text ) 

.AjAa jlx Ui fLwul Ji aAaluU J&\ Sjj'vaalt A_al£i) -6 

( Dim - String - VbCrLf - Print ) 

—lldl JI^JI 

( 63 - Error - 16 - pass - 18 - zero 0 ) 

.^ ( 5 + 3 ) * 2 AajtuoaJl Aalaadl Aoi£ £jU -1 

-inm (jijj mj tgaluUI ljJLlJI i lir-ill - jjjijn^ill (jj |5ji5 





















jA JjliLl Liu guU -2 

Dim A as Integer = 7 
Dim B as Integer = 9 
Msgbox (A * B ) 


.jA JjliH LLj ;*uU -3 

Dim X as Single = 55 
If X > = 50 Then 
Msgbox ( "pass" ) 

End If 


.jA JjliH Liu ;>uU -4 

Dim N as Integer = 10 
N = N + 2 
N = N Mod 3 
Labell. Text = N 


2014 -52 


J$ai JMl 


: jL U ji d-ila^l >Ja,l 

. culjjilLl Ajlajou JlC'lL aauI jjjxj. jjxjLSI ^ut\ -\ 

(AS - 2 nd Class - Age - Const ) 

JajjU ^Vuil.-2 

( @ - & - vbCrlf - &vbCrlf& ) 

.4jLumj <jl JjV oLiu Jjalau £uaijl ^Uuuj Jj£j| 4ulu£ L& -3 

( U« f - Dim - Rem - Const) 
.j* Din X As Single Code ^ -4 

( tilij jjC- - JjLuali JU£> - ala ) 

. Form <jc- jj*j.-5 

( Double - Object - Me - As ) 

_; JN\ jj£l! Liu Lc. Labell SlJl ^ AaiaII U -6 

Dim intNum as integer = 10 
intNum = intNum + 2 
intNum = intNum Mod 3 
Labell. Text = intNum 

mm (jijj mj tgaluUI ljJLlJI i lir-ill - jjjijn^ill (jj (5ji5 













(10 - 0 -3 - 4 ) 

: jLjb loo ^ . ivi d^lxfell^lol ( X ) doiL&4 ji> iyiH ^Ipl ( V ) Jplk ( 1) 

() . 29 j* ( 2 + 3 ) A 3 AoUxi! jjaD @jU _l 

( ) . 2 j* If.. Then .. Else AUa. fl-iaa*-! £a Aa£aaI 1 cjljbikl -2 

( ) . Variables Dim f Aao*-j -3 

( ) . False j'True AajaI! ixL Byte <> -4 

: Lticl^jl^ ajI^II) jIjAjJI (loail ,^jA •**■■1 ^iiilll Code ^^^11 (a) 

Private Sub Buttonl _ Click (ByVal sender 
Dim Radius As Single 
Const X as Single =22/7 
Radius = TextBoxl. Text 
Label2 . Text = X * Radius A 2 
End Sub 

£JUil JM 

.3.11:11 41^111 ’4/4 : : r :1: . :^1 

-1 

Dim A as Integer = 7 
Dim B as Integer = 9 

Msgbox (A & "x" & B & "=" & " " & A * B ) 

-2 

Dim Num as Integer = 10 
If Num > = 10 Then 
Labell. Text = "one" 

Else 

Labell. Text = "two" 

End If 

-3 

Dim i as Integer , Sum as Integer 
For i = 1 To 5 
Sum = Sum + i 
Next 

Lbl_display . Text = Sum 

mm (jijj mj tgaluUI ljJLlJI i iSi-iII - jjgnn^ill ^ )5jl5 
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:jGli loo £ 


J^i JMI 

jj^jl j jl i»ll ^plpl ( X ) dgilt^ ii> iyill d jl i»ll ^plpl ( V ) rfoflfl 


( ) . Variables CF Dim ^Vu ^ i -1 

( ) • <> J^' j^' ^ if - then .. Else ^Vun -2 

( ) . j* ( for M = 3 To 1 Step -1 ) ju M ^jS -3 

( ) . False ji True ^ Double <> -4 


^ui jmi 

jjjU^a < xi4j cd tj^jl jjj 

4>o >14^0 ^milioll ^Ifill ,4 4-i 


Q 

r [. 

Q 


^JUI JI^JI 

jA <JLJ 1 ^^11 ,\ t '<\ n ftjLi -1 

Dim Num A s Integer = 10 
If Num >= 10 Then 
Labell. Text = "one" 

Else 

Labell. Text = "Two" 

End If 

( 10 - Two - One ) 

: A** 2 Labell ,-j^ v»n si d <uk dtu^ n ««n i ft -7. 
Dim intNum as Integer = 10 
intNum = intNum + 2 
intNum = intNum mod 3 
Labell. Text = intNum 

mm (jijj mj tgaluUI ljJLlJI i lir-ill - jjjijn^ill ^ |5jl5 


>Q)Lo 0 S>O 

►1998, 20 0* iiUaJIcujb 

8 jSi £»JI 


-: ftpli y-JI ^Q. lVim o 

-1 

-2 

-3 

-4 



































m 411 rn 4 

Dim n as integer 
Dim s as integer 
For n = 1 To 100 
S = S + n 
Next 

Labell. Text = S 

uft ajC - 100 l 1 L)" 4 a (j*ajC - 100 ! 1 L)" 4 ) 

(100 : 1 <> ujj^ 3 


2014 uajj^i Aiaka-a -54 

(v^jL^I > J$2I JI^JI 

. jJXJ-all ^auail idJJ £jl Lj2uU -1 

. jaSI jl ±Ja ZJSLaj LldC ujLaK jjm ! SjlaC- . -2 

■LiLal JLlL £LaUjail jli jaljVI ddA ^ Uak da .la. ITry (j& ^1 jaIjVI LLa ^aa -3 

. End Try . J* ja»tjVI 

For X = 3 To 8 Step 2 AaaVI For ... Next ^^-4 

. jA jlj£all Cal ja JJC- (jlfl 

. jA djbjIjVI Sjc-lii ILL 3 A 2*3+6/2 ^yVI ^LaaJI jaaxall ^uU -5 

«ilimill ^ aa>1 (JLliJI J^-mill ,pj ( Sr 1 


Ua£JI c_lluj J-la. -1 
Uakll £ jj J.la. -2 
jasa^akail 41 a^ -3 

( ^dli U* Jaiu ^mI ji Mil > LyU 

: ri*y i*ynll <Ljla,iH >Ja,l ( 1 J^l Jl^iull 

( 3 - 1.5 - 0 ) >6 mod 2 AaaVI ^L-aJl 4jUlt &U -l 

> rnsgbox ( "5” & "X" & "2" ) £3U -2 

( 10 - 5x2 - 5&2 ) 

lyjamui tgaluUI ljJLlJI i lir-ill - jjjijn^ill ^ |5jl5 


: a-Lilll 


Private Sub Buttonl_Click ( ByVal Sender As System. 
Dim math As Byte 

ns = Me . TextBoxl . Text 

MsgBox (math ) 

End Sub 


rerf low Exception^ as unhandled 

Arithmetic operation resulted In an overflow. 
























Private Sub Buttonl_Click ( ByVal Sender As 
System.object, 

Dim A AS Short 

For A = 12 to 4 Step-3 

Me .TextBoxl. Text = Me . TextBoxl. Text & A 

Next 

End Sub 


TextBoxl ^ fJil\ -1 

AjjIjSjII Aiixil AjL$J Jxj A AaaS -2 

^LJI JMI 

" ^jll " AjLuj j jl^jab ^jjh £UjUIjj ^J! AjiUlt Jjaiill Alajja. Jjjaol ^pUl Jj£S! <—u£l 

. AILuj j ^ijll " AlLuij jj 

f Start J 


M > 0 


Print 

" <_JLu ^aSjll " 


Print 
^Sjl! " 


C End J 




^JUI ji^ji 

i Labell dbjjj ,<ui kil*kl<al1 dQ-iUI U (! 


Dim x As Short = 6 
Dim y as Short = 8 
If y = x Then 
Me.Labell. Text = y / 2 
Else 
Y = 5 

Me. Labell. Text = y * 2 


l^alacUl ljJIUI nil-ill - jj'gjujiHJI )5jl5 




























a^ r ii , , 

^ujU (j I 42 B_day Cf" 0^1 -1 

dljla^ <> TextBoxl u-sil -2 

MljJI JM> 

. r uii r iu^ r n , ^1(S 
. jia-ujj JlikJVl j-aj AiLiaV ^AaJLuij ja ujjLj -\ 
. f-Lul ^jiall Jj£j| J^b uUa^^La 4 jU£j Jjjixll ^Viun A-aIS -2 

: ^LliHl i^l ‘ 4 « 4 ! " Ait ^LliJI Y , Z ^k> i a i * 4 ( «J 


Dim Z , Y As Integer 

Y = 0 

For Z = 2 To 6 Step 2 
Msgbox (Z) 

Y = Y + Z 
Next z 

Msgbox (Y) 


lyjamui tgaluUI ljJLlJI i iSi-iII - jjgnn^ill ^ )5jl5 










